diff options
| author | Maxime Dénès | 2017-10-09 16:42:28 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-10-09 16:42:28 +0200 |
| commit | 5ef85c86dc94338c2d0da060946baafea2e5370e (patch) | |
| tree | 4e0ba603694a7bdea2771ca6f24eda549ce8ca5f /theories | |
| parent | f927df44202034fa8cf73f72af876ae1e4ca05ba (diff) | |
| parent | 6526933e3d6a6392aa6bd5235ea0180bb68b6f94 (diff) | |
Merge PR #1126: [ltac] Warning for deprecated `Add Setoid` and `Add Morphism` forms.
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/FSets/FSetProperties.v | 2 | ||||
| -rw-r--r-- | theories/QArith/Qreduction.v | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/theories/FSets/FSetProperties.v b/theories/FSets/FSetProperties.v index 25b042ca98..0041bfa1c4 100644 --- a/theories/FSets/FSetProperties.v +++ b/theories/FSets/FSetProperties.v @@ -762,7 +762,7 @@ Module WProperties_fun (Import E : DecidableType)(M : WSfun E). rewrite (cardinal_2 (s:=remove x s') (s':=s') (x:=x)); eauto with set. Qed. - Add Morphism cardinal : cardinal_m. + Add Morphism cardinal with signature (Equal ==> Logic.eq) as cardinal_m. Proof. exact Equal_cardinal. Qed. diff --git a/theories/QArith/Qreduction.v b/theories/QArith/Qreduction.v index 88e1298fbe..5d055b5474 100644 --- a/theories/QArith/Qreduction.v +++ b/theories/QArith/Qreduction.v @@ -101,7 +101,7 @@ Proof. - apply Qred_complete. Qed. -Add Morphism Qred : Qred_comp. +Add Morphism Qred with signature (Qeq ==> Qeq) as Qred_comp. Proof. intros. now rewrite !Qred_correct. Qed. @@ -125,19 +125,19 @@ Proof. intros; unfold Qminus'; apply Qred_correct; auto. Qed. -Add Morphism Qplus' : Qplus'_comp. +Add Morphism Qplus' with signature (Qeq ==> Qeq ==> Qeq) as Qplus'_comp. Proof. intros; unfold Qplus'. rewrite H, H0; auto with qarith. Qed. -Add Morphism Qmult' : Qmult'_comp. +Add Morphism Qmult' with signature (Qeq ==> Qeq ==> Qeq) as Qmult'_comp. Proof. intros; unfold Qmult'. rewrite H, H0; auto with qarith. Qed. -Add Morphism Qminus' : Qminus'_comp. +Add Morphism Qminus' with signature (Qeq ==> Qeq ==> Qeq) as Qminus'_comp. Proof. intros; unfold Qminus'. rewrite H, H0; auto with qarith. |