fact: Definition compl {A} {B} (f: M (A |m- B)) (g : M A) : M B := '(a, b) <- f; a' <- g; mif unify a a' UniCoq then ret b else failwith "nope".
imports: Mtac2(Base Datatypes List MTele MTeleMatch MTeleMatchDef MFixDef Sorts tactics.Tactics) Strings.String