fact: Definition cclear {A B} (x:A) (cont : gtactic B) : gtactic B := fun g=> match g with | Metavar Propₛ gT _ => '(e,l) <- M.remove x ( e <- M.evar gT; l <- cont (Metavar Propₛ _ e); M.ret (e, l)); exact e g;; rem_hyp x l | Metavar Typeₛ gT _ => '(e,l) <- M.remove x ( e <- M.evar gT; l <- cont (Metavar Typeₛ _ e); M.ret (e, l)); exact e g;; rem_hyp x l end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef