proposition: Lemma compare_gt_rw : forall alpha beta, compare alpha beta = Gt -> beta < alpha.
proof: Proof. intros alpha beta; generalize (compare_reflect alpha beta). case (compare alpha beta);(try discriminate 2; 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