diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-08 13:10:30 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-08 13:10:30 +0000 |
| commit | bdec9fddcdaa13800e04e718ffa52f87bddc52d9 (patch) | |
| tree | 8dd2356885cc98944513644ca528eceeb37c253c /theories/QArith | |
| parent | 55d9e712c68a3b9eb7b83881095c8995542f8904 (diff) | |
Implicit argument of Logic.eq become maximally inserted
This allow in particular to write eq instead of (@eq _) in
signatures of morphisms. I dont really see how this could
break existing code, no change in the stdlib was mandatory.
We'll check the contribs tomorrow...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12379 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/QArith')
| -rw-r--r-- | theories/QArith/QArith_base.v | 4 | ||||
| -rw-r--r-- | theories/QArith/Qround.v | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/theories/QArith/QArith_base.v b/theories/QArith/QArith_base.v index dff556b98..c87c9df9e 100644 --- a/theories/QArith/QArith_base.v +++ b/theories/QArith/QArith_base.v @@ -835,7 +835,7 @@ Qed. Definition Qpower_positive (q:Q)(p:positive) : Q := pow_pos Qmult q p. -Add Morphism Qpower_positive with signature Qeq ==> @eq _ ==> Qeq as Qpower_positive_comp. +Add Morphism Qpower_positive with signature Qeq ==> eq ==> Qeq as Qpower_positive_comp. Proof. intros x1 x2 Hx y. unfold Qpower_positive. @@ -854,7 +854,7 @@ Definition Qpower (q:Q) (z:Z) := Notation " q ^ z " := (Qpower q z) : Q_scope. -Add Morphism Qpower with signature Qeq ==> @eq _ ==> Qeq as Qpower_comp. +Add Morphism Qpower with signature Qeq ==> eq ==> Qeq as Qpower_comp. Proof. intros x1 x2 Hx [|y|y]; try reflexivity; simpl; rewrite Hx; reflexivity. diff --git a/theories/QArith/Qround.v b/theories/QArith/Qround.v index 3f191c752..8162a702f 100644 --- a/theories/QArith/Qround.v +++ b/theories/QArith/Qround.v @@ -122,7 +122,7 @@ Qed. Hint Resolve Qceiling_resp_le : qarith. -Add Morphism Qfloor with signature Qeq ==> @eq _ as Qfloor_comp. +Add Morphism Qfloor with signature Qeq ==> eq as Qfloor_comp. Proof. intros x y H. apply Zle_antisym. @@ -130,7 +130,7 @@ apply Zle_antisym. symmetry in H; auto with *. Qed. -Add Morphism Qceiling with signature Qeq ==> @eq _ as Qceiling_comp. +Add Morphism Qceiling with signature Qeq ==> eq as Qceiling_comp. Proof. intros x y H. apply Zle_antisym. |