fact: Definition cpose {A} (t: A) (cont : A -> tactic) : tactic := fun g => cpose_base(FreshFrom cont) t cont g.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef