fact: Fixpoint Below_T (t : T) : Type := match t with | L => True | N x => Q x * Below_R x end with Below_R (r : R) : Type := match r with | rnil => True | rcons t r => (P t * Below_T t) * (Q r * Below_R r) end.
imports: Equations(Equations) Below