diff options
author | 2002-02-14 13:01:45 +0000 | |
---|---|---|
committer | 2002-02-14 13:01:45 +0000 | |
commit | b239b208eb9a66037b0c629cf7ccb6e4b110636a (patch) | |
tree | d57212dbce5bc31b539516da2082fb6d115d9c77 /theories/ZArith | |
parent | 63c3abfcb53bbe3dc7f601c6595c05d56f498299 (diff) |
Syntaxe IF then else au lieu de either and_then or_else
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2473 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/ZArith')
-rw-r--r-- | theories/ZArith/Zlogarithm.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/theories/ZArith/Zlogarithm.v b/theories/ZArith/Zlogarithm.v index 5037d617b..21e786a17 100644 --- a/theories/ZArith/Zlogarithm.v +++ b/theories/ZArith/Zlogarithm.v @@ -87,9 +87,9 @@ Save. either [(log_sup p)=(log_inf p)+1] *) Theorem log_sup_log_inf : (p:positive) - either (POS p)=(two_p (log_inf p)) - and_then (POS p)=(two_p (log_sup p)) - or_else ` (log_sup p)=(Zs (log_inf p))`. + IF (POS p)=(two_p (log_inf p)) + then (POS p)=(two_p (log_sup p)) + else ` (log_sup p)=(Zs (log_inf p))`. Induction p; Intros; [ Elim H; Right; Simpl; |