diff options
| author | letouzey | 2011-01-03 18:51:13 +0000 |
|---|---|---|
| committer | letouzey | 2011-01-03 18:51:13 +0000 |
| commit | 8e2d90a6a9f4480026afd433fc997d9958f76a38 (patch) | |
| tree | 6a92d154766a3a8934b91705acf79cc994a42061 /theories/Numbers/Integer/Abstract/ZGcd.v | |
| parent | 05662999c9ab0183c0f97fc18579379142ac7b38 (diff) | |
Numbers: some improvements in proofs
- a ltac solve_proper which generalizes solve_predicate_wd and co
- using le_elim is nicer that (apply le_lteq; destruct ...)
- "apply ->" can now be "apply" most of the time.
Benefit: NumPrelude is now almost empty
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13762 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Integer/Abstract/ZGcd.v')
| -rw-r--r-- | theories/Numbers/Integer/Abstract/ZGcd.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Numbers/Integer/Abstract/ZGcd.v b/theories/Numbers/Integer/Abstract/ZGcd.v index 77a7c73415..87a95e9d77 100644 --- a/theories/Numbers/Integer/Abstract/ZGcd.v +++ b/theories/Numbers/Integer/Abstract/ZGcd.v @@ -163,12 +163,12 @@ Proof. assert (aux : forall n, 0<=n -> forall m, 0<=m -> Bezout n m (gcd n m)). intros n Hn; pattern n. apply strong_right_induction with (z:=0); trivial. - unfold Bezout. solve_predicate_wd. + unfold Bezout. solve_proper. clear n Hn. intros n Hn IHn. apply le_lteq in Hn; destruct Hn as [Hn|Hn]. intros m Hm; pattern m. apply strong_right_induction with (z:=0); trivial. - unfold Bezout. solve_predicate_wd. + unfold Bezout. solve_proper. clear m Hm. intros m Hm IHm. destruct (lt_trichotomy n m) as [LT|[EQ|LT]]. (* n < m *) |