fact: Fixpoint monotonic_strict_aux b n : Pol_type n -> Pol_type n -> Prop:= match n as m return Pol_type m -> Pol_type m -> Prop with | 0 => fun a b => Alt a b | S n => match b with | true => fun P1 P2 => forall x1 x2, (A0<=x1) /\ (x1 <= x2) -> monotonic_strict_aux true n (P1 x1) (P2 x2) | false => fun P1 P2 => (forall x1 x2, (A0<=x1) /\ (x1 <= x2) -> monotonic_strict_aux false n (P1 x1) (P2 x2))/\ (forall x1 x2, (A0<=x1) /\ (x1 < x2) -> monotonic_strict_aux true n (P1 x1) (P2 x2)) end end.
imports: Coq(List ZArith Lia) CoLoR(weaved_relation equational_theory term_spec terminaison)