File tree Expand file tree Collapse file tree
theories/normedtype_theory Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -122,7 +122,8 @@ rewrite [X in `|X|](_ : _ = (x - z : convex_lmodType _) <| l |>
122122 by rewrite opprD -[in LHS](convmm l x) addrACA -scalerBr -scalerBr.
123123rewrite (le_lt_trans (ler_normD _ _))// !normrZ.
124124rewrite (@ger0_norm _ l%:num)// (@ger0_norm _ l%:num.~) ?onem_ge0//.
125- by rewrite -[ltRHS]mul1r -(add_onemK l%:num) mulrDl ltrD// ltr_pM2l// onem_gt0.
125+ rewrite -[ltRHS]mul1r -(add_onemK l%:num) [ltRHS]mulrDl.
126+ by rewrite ltrD// ltr_pM2l// onem_gt0.
126127Qed .
127128
128129(** NB: we have almost the same proof in `tvs.v` *)
Original file line number Diff line number Diff line change @@ -520,7 +520,8 @@ rewrite [X in `|X|](_ : _ = (x - z : convex_lmodType _) <| l |>
520520 by rewrite opprD -[in LHS](convmm l x) addrACA -scalerBr -scalerBr.
521521rewrite (le_lt_trans (ler_normD _ _))// !normrM.
522522rewrite (@ger0_norm _ l%:num)// (@ger0_norm _ l%:num.~) ?onem_ge0//.
523- by rewrite -[ltRHS]mul1r -(add_onemK l%:num) mulrDl ltrD// ltr_pM2l// onem_gt0.
523+ rewrite -[ltRHS]mul1r -(add_onemK l%:num) [ltRHS]mulrDl.
524+ by rewrite ltrD// ltr_pM2l// onem_gt0.
524525Qed .
525526
526527Let standard_locally_convex :
You can’t perform that action at this time.
0 commit comments