Commit 99d9ac06 authored by François Bobot's avatar François Bobot
Browse files

session : better information in print_session

? not verified (or not valid for proof_attempt)
! InternalFailure
O obsolete
A archived
parent c35f496f
...@@ -207,16 +207,23 @@ module PTreeT = struct ...@@ -207,16 +207,23 @@ module PTreeT = struct
| File f -> f.file_name | File f -> f.file_name
| Theory th -> th.theory_name.Ident.id_string | Theory th -> th.theory_name.Ident.id_string
| Goal g -> | Goal g ->
if g.goal_task = None if g.goal_verified
then g.goal_name.Ident.id_string^"*" then g.goal_name.Ident.id_string
else g.goal_name.Ident.id_string else g.goal_name.Ident.id_string^"?"
| Proof_attempt pr -> | Proof_attempt pr ->
Pp.sprintf_wnl "%a%s%s%s" Pp.sprintf_wnl "%a%s%s%s%s"
Whyconf.print_prover pr.proof_prover Whyconf.print_prover pr.proof_prover
(match pr.proof_state with
| Done { Call_provers.pr_answer = Call_provers.Valid} -> ""
| InternalFailure _ -> "!"
| _ -> "?")
(if pr.proof_obsolete || pr.proof_archived then " " else "") (if pr.proof_obsolete || pr.proof_archived then " " else "")
(if pr.proof_obsolete then "O" else "") (if pr.proof_obsolete then "O" else "")
(if pr.proof_archived then "A" else "") (if pr.proof_archived then "A" else "")
| Transf tr -> tr.transf_name in | Transf tr ->
if tr.transf_verified
then tr.transf_name
else tr.transf_name^"?" in
let l = ref [] in let l = ref [] in
iter (fun a -> l := (Any a)::!l) t; iter (fun a -> l := (Any a)::!l) t;
s,!l s,!l
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment