fact: Definition cassert_with_base {A B} (name : name) (t : A) (cont : A -> gtactic B) : gtactic B := fun g => M.nu name (mSome t) (fun x=> match g with | Metavar sort gT _ => r <- M.evar gT; value <- M.abs_fun x r; exact (value t) g;; close_goals x =<< cont x (Metavar sort _ r) end).
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef