let create_proof p = let n = subproofs p.p_kind in { target = p.p_prop ; proved = Array.create n Noproof ; dependencies = PropSet.empty ; invariants = PropSet.empty ; induction = get_induction p ; }