Text
This commit is contained in:
parent
98d525c58a
commit
07e7a6b4eb
2
main.ml
2
main.ml
@ -148,7 +148,7 @@ let finalLam = !fill_holes [] in
|
||||
if (typecheck [] finalLam ty) then
|
||||
Printf.printf "Final proof :\n%s\n" (string_of_lam finalLam)
|
||||
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 "The whole development team of pieuvre is sorry for the damage eventually done by this error.\n"
|
||||
)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user