Affichage des hypothèses

This commit is contained in:
Adrien Vannson 2022-05-09 00:18:22 +02:00
parent 17907e1690
commit 5304002158
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55

View File

@ -70,7 +70,7 @@ while !subgoals <> [] do
let _ = Sys.command("clear -x") in
(* Affichage des hypothèses *)
Printf.printf "There are %d hypothesis\n" (List.length hyp);
List.iter (fun (var, h) -> Printf.printf "%s: %s\n" var (string_of_ty h)) hyp;
(* Affichage des sous-buts *)
Printf.printf "================\n";