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 -> ()