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 /plugins/micromega | |
| parent | f927df44202034fa8cf73f72af876ae1e4ca05ba (diff) | |
| parent | 6526933e3d6a6392aa6bd5235ea0180bb68b6f94 (diff) | |
Merge PR #1126: [ltac] Warning for deprecated `Add Setoid` and `Add Morphism` forms.
Diffstat (limited to 'plugins/micromega')
| -rw-r--r-- | plugins/micromega/EnvRing.v | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/plugins/micromega/EnvRing.v b/plugins/micromega/EnvRing.v index 56b3d480eb..ae4857a77c 100644 --- a/plugins/micromega/EnvRing.v +++ b/plugins/micromega/EnvRing.v @@ -56,10 +56,18 @@ Section MakeRingPol. Infix "?=!" := ceqb. Notation "[ x ]" := (phi x). (* Useful tactics *) - Add Morphism radd : radd_ext. exact (Radd_ext Reqe). Qed. - Add Morphism rmul : rmul_ext. exact (Rmul_ext Reqe). Qed. - Add Morphism ropp : ropp_ext. exact (Ropp_ext Reqe). Qed. - Add Morphism rsub : rsub_ext. exact (ARsub_ext Rsth Reqe ARth). Qed. + Add Morphism radd with signature (req ==> req ==> req) as radd_ext. + Proof. exact (Radd_ext Reqe). Qed. + + Add Morphism rmul with signature (req ==> req ==> req) as rmul_ext. + Proof. exact (Rmul_ext Reqe). Qed. + + Add Morphism ropp with signature (req ==> req) as ropp_ext. + Proof. exact (Ropp_ext Reqe). Qed. + + Add Morphism rsub with signature (req ==> req ==> req) as rsub_ext. + Proof. exact (ARsub_ext Rsth Reqe ARth). Qed. + Ltac rsimpl := gen_srewrite Rsth Reqe ARth. Ltac add_push := gen_add_push radd Rsth Reqe ARth. |