Implicit Types m n p : nat.Definition ltof (a b:A) := f a < f b.Definition gtof (a b:A) := f b > f a.

Lemma lt_wf_double_rec : forall P:nat -> nat -> Set, (forall n m, (forall p q, p < n -> P p q) -> (forall p, p < m -> P n p) -> P n m) -> forall n m, P n m.