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