fact: Definition unify@{a} {A : Type@{a}} (x y : A) (U : Unification) : t@{a} (moption@{a} (meq@{a} x y)) := unify_cnt@{a a} (A:=A) (B:=fun x => moption@{a} (meq x y)) U x y (ret@{a} (mSome@{a} (@meq_refl _ y))) (ret@{a} mNone@{a}).
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)