fact: Definition Mtest2 : nat -> nat -> nat -> nat -> M nat := mfix4 rec (a : nat) (b : nat) (c : nat) (d : nat) : M nat := match (a, b, c, d) with | (0, 0, 0, 0) => M.ret 0 | (0, 0, 0, o) => rec a b c (pred o) | (0, 0, m, o) => rec a b (pred m) o | (0, n, m, o) => rec a (pred n) m o | (l, n, m, o) => rec (pred l) n m o end.
imports: Mtac2(Mtac2 MTele MTeleMatch MFixDef MTeleMatchDef)