let clear () =
  begin
    system.index <- Kfmap.empty ;
    Hproof.clear system.proofs ;
    Hpo.clear system.results ;
  end