Affichage des subgoals

This commit is contained in:
Adrien Vannson 2022-05-10 14:44:07 +02:00
parent 5774bab7d8
commit dc29a93934
No known key found for this signature in database
GPG Key ID: FE2E66FD978C1A55

View File

@ -84,6 +84,9 @@ while !subgoals <> [] do
(* Affichage des sous-buts *) (* Affichage des sous-buts *)
Printf.printf "================\n"; Printf.printf "================\n";
Printf.printf "%s\n" (string_of_ty ty); Printf.printf "%s\n" (string_of_ty ty);
List.iter (fun (ty, _) ->
Printf.printf "%s\n" (string_of_ty ty)
) !subgoals;
(* Lecture d'une tactique *) (* Lecture d'une tactique *)
Printf.printf "What do you want to do?\n" Printf.printf "What do you want to do?\n"