Text
This commit is contained in:
@@ -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"
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user