let clear () = cpt_mk_var := 0; HA.clear ha; HI.clear hi