Mysaa/pieuvre
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Indentation

Browse Source
This commit is contained in:
Adrien Vannson 2022-05-10 11:23:09 +02:00
parent 73984f4232
commit 29d7e67a00
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
main.ml
View File

@ -135,16 +135,11 @@ while !subgoals <> [] do
done; done;
let finalLam = !fill_holes [] in let finalLam = !fill_holes [] in
if (typecheck [] finalLam ty) if (typecheck [] finalLam ty) then
then
Printf.printf "Final proof :\n%s\n" (string_of_lam finalLam) Printf.printf "Final proof :\n%s\n" (string_of_lam finalLam)
else else (
(
Printf.printf "Invalid proof constructed !\n"; Printf.printf "Invalid proof constructed !\n";
Printf.printf "%s can't be typed with %s.\n" (string_of_lam finalLam) (string_of_ty ty); Printf.printf "%s can't be typed with %s.\n" (string_of_lam finalLam) (string_of_ty ty);
Printf.printf "The whole development team of pieuvre is sorry for the damage eventually done by this error.\n" Printf.printf "The whole development team of pieuvre is sorry for the damage eventually done by this error.\n"
) )
;; ;;