fact: Definition coerce {A B : Type} (x : A) : t B := oH <- unify A B UniCoq; match oH with | mSome H => match H with meq_refl => ret x end | _ => raise CantCoerce end.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)