diff options
| author | affeldt-aist | 2019-11-14 23:32:54 +0900 |
|---|---|---|
| committer | Cyril Cohen | 2019-12-11 14:26:52 +0100 |
| commit | ab2b7de07c7236531bc08a0b9f53046593e47051 (patch) | |
| tree | a2e6401d9d57e4259104e26bf10dc4853cf6746f | |
| parent | b3261c9020105f3c6667697b22ca8a542271bc4c (diff) | |
remove ProdNormedZmodule (#419)
* remove ProdNormedZmodule from ssrnum.v, it made its way to mathcomp-analysis in a generalized form (branch analysis_270) at the time of this writing
* update gitlab-ci
| -rw-r--r-- | .gitlab-ci.yml | 8 | ||||
| -rw-r--r-- | mathcomp/algebra/ssrnum.v | 54 |
2 files changed, 4 insertions, 58 deletions
diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml index 3b83fea..34ae7d6 100644 --- a/.gitlab-ci.yml +++ b/.gitlab-ci.yml @@ -145,7 +145,7 @@ coq-dev: - make install except: - /^experiment\/order$/ - - /^pr-(270|388|402|416)$/ + - /^pr-(270|388|402|419)$/ ci-fourcolor-8.7: extends: .ci-fourcolor @@ -182,7 +182,7 @@ ci-fourcolor-dev: - make install only: - /^experiment\/order$/ - - /^pr-(270|388|402|416)$/ + - /^pr-(270|388|402|419)$/ ci-fourcolor-8.7-270: extends: .ci-fourcolor-270 @@ -210,7 +210,7 @@ ci-fourcolor-dev-270: - make install except: - /^experiment\/order$/ - - /^pr-(270|388|402|416)$/ + - /^pr-(270|388|402|419)$/ ci-odd-order-8.7: extends: .ci-odd-order @@ -247,7 +247,7 @@ ci-odd-order-dev: - make install only: - /^experiment\/order$/ - - /^pr-(270|388|402|416)$/ + - /^pr-(270|388|402|419)$/ ci-odd-order-8.7-270: extends: .ci-odd-order-270 diff --git a/mathcomp/algebra/ssrnum.v b/mathcomp/algebra/ssrnum.v index d607291..1f6c0a4 100644 --- a/mathcomp/algebra/ssrnum.v +++ b/mathcomp/algebra/ssrnum.v @@ -5025,59 +5025,6 @@ End Exports. End RealLtMixin. -(*************) -(* INSTANCES *) -(*************) - -Module ProdNormedZmodule. -Section ProdNormedZmodule. - -Context {R : realDomainType} {U V : normedZmodType R}. - -Definition norm (x : U * V) := Num.max `|x.1| `|x.2|. - -Lemma normD x y : norm (x + y) <= norm x + norm y. -Proof. -apply: le_trans (leU2 (ler_norm_add x.1 y.1) (ler_norm_add x.2 y.2)) _. -rewrite /norm; case: (leP `|_|) => [|/ltW] Hx; case: (leP `|_|) => [|/ltW] Hy; - by [case: leP (ler_add Hx Hy) | case: leP; rewrite (ler_add2l, ler_add2r)]. -Qed. - -Lemma norm_eq0 x : norm x = 0 -> x = 0. -Proof. -by rewrite /norm; case: leP=> [|/ltW] le_x xnorm0; - move: le_x; rewrite xnorm0 normr_le0 => /eqP; - move/normr0_eq0: xnorm0; case: x => /= ? ? -> ->. -Qed. - -Lemma normrMn x n : norm (x *+ n) = norm x *+ n. -Proof. -by rewrite pairMnE /norm /= !normrMn; case: leP => [|/ltW]; - rewrite ler_muln2r => /predU1P [->|]; rewrite ?mulr0n //; - case: ltgtP => // ->. -Qed. - -Lemma normrN x : norm (- x) = norm x. -Proof. by rewrite /norm /= !normrN. Qed. - -Definition normedZmodMixin : - @normed_mixin_of R [zmodType of U * V] (Num.RealDomain.class R) := - @Num.NormedMixin _ _ _ norm normD norm_eq0 normrMn normrN. - -Canonical normedZmodType := NormedZmodType R (U * V) normedZmodMixin. - -Lemma prod_normE (x : U * V) : `|x| = Num.max `|x.1| `|x.2|. Proof. by []. Qed. - -End ProdNormedZmodule. - -Module Exports. -Canonical normedZmodType. -Definition prod_normE := @prod_normE. -End Exports. - -End ProdNormedZmodule. -Export ProdNormedZmodule.Exports. - End Num. Export Num.NumDomain.Exports Num.NormedZmodule.Exports. @@ -5088,7 +5035,6 @@ Export Num.ArchimedeanField.Exports Num.RealClosedField.Exports. Export Num.Syntax Num.PredInstances. Export Num.NumMixin.Exports Num.RealMixin.Exports. Export Num.RealLeMixin.Exports Num.RealLtMixin.Exports. -Export Num.ProdNormedZmodule.Exports. Notation ImaginaryMixin := Num.ClosedField.ImaginaryMixin. |
