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 ;
  }