fact: Definition abstract_from_sort_dep (s:Sort) {A} (x:A) (B:s) (D : s -> Type) (ok : forall C : A -> s, M (D (C x))) (fail : M (D B)) : M (D B) := abstract_from_term_dep x B D ok fail.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic intf.Sorts) Strings.String NArith.BinNat NArith.BinNatDef