File tree Expand file tree Collapse file tree
theories/functional_analysis Expand file tree Collapse file tree Original file line number Diff line number Diff line change 225225- in ` mathcomp_extra.v ` :
226226 + lemmas ` divDl_ge0 ` , ` divDl_le1 `
227227 + mixin ` Zmodule_isSubNormed `
228+ + mixin ` isTmp ` and structure ` SubNormedZmodule_tmp ` (temporary kludge)
228229
229230- in ` unstable.v ` :
230231 + lemmas ` divD_onem `
Original file line number Diff line number Diff line change @@ -112,3 +112,23 @@ Proof.
112112move: s0; rewrite le0r => /predU1P [->|s0]; first by rewrite mul0r.
113113by rewrite ler_pdivrMr ?mul1r ?lerDl // ltr_wpDr.
114114Qed .
115+
116+ HB.mixin Record Zmodule_isSubNormed (R : numDomainType)
117+ (M : normedZmodType R) (S : pred M) T & SubChoice M S T
118+ & Num.NormedZmodule R T := {
119+ norm_valE : forall x , @Num.norm _ M ((val : T -> M) x) = @Num.norm _ T x
120+ }.
121+
122+ (* SubNormedZmodule will appear in MC 2.6.0.
123+ However, just duplicating it here causes an HB error in the CI with MC 2.6.0.
124+ We therefore reproduce it with a different name and add a dummy
125+ mixin to it to satisfy HB.
126+ This will be removed when dropping support for MC 2.5.0 *)
127+ HB.mixin Record isTmp (R : numDomainType) (V : normedZmodType R) (S : pred V)
128+ (U : Type) := { field_tmp : True }.
129+
130+ #[short(type="subNormedZmodType")]
131+ HB.structure Definition SubNormedZmodule_tmp (R : numDomainType)
132+ (V : normedZmodType R) (S : pred V) :=
133+ { U of @isTmp R V S U & SubChoice V S U & Num.NormedZmodule R U &
134+ GRing.SubZmodule V S U & Zmodule_isSubNormed R V S U }.
You can’t perform that action at this time.
0 commit comments