let consolidate_loop proof =
match proof.induction with
| None -> ()
| Some stmt ->
try
(* Check for consolidation *)
PropSet.iter
(fun ip ->
match fst (Properties_status.strongest ip) with
| Checked{valid=True} -> ()
| _ -> raise Exit
) proof.invariants ;
(* Consolidated ! *)
let iploop = LoopInvariants.property stmt in
LoopConsolidation.set_checked iploop [] True
with Exit -> ()