proposition: Lemma inj_mono : forall c c', (c < c')%ca -> T1_inj c < T1_inj c'.
proof: Proof. induction 1; simpl;auto with T2. Qed.
imports: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo