fact: Definition goal_prop (g : goal gs_open) : t Prop := match g with | Metavar s A _ => match s as s return forall A:stype_of s, t Prop with | Propₛ => fun A:Prop => ret A | Typeₛ => fun A:Type => gP <- evar Prop; mtry cumul_or_fail UniMatch gP A;; ret gP with _ => raise CantCoerce end end A end.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)