File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -46,7 +46,7 @@ Bruhat Order:
4646
4747************************** *)
4848From HB Require Import structures.
49- From mathcomp Require Import all_ssreflect .
49+ From mathcomp Require Import all_boot order .
5050From mathcomp Require Import fingroup perm morphism presentation.
5151From mathcomp Require Import ssralg matrix.
5252
9595
9696Section PermMX.
9797
98- Variable (R : semiRingType ) (n : nat).
98+ Variable (R : nzSemiRingType ) (n : nat).
9999Implicit Type (s t : 'S_n).
100100
101101Lemma perm_mx_eq1 s : (@perm_mx R n s == 1%:M) = (s == 1).
110110Lemma perm_mx_inj : injective (@perm_mx R n).
111111Proof .
112112move=> s t /(congr1 (mulmx (perm_mx t^-1)))/eqP.
113- rewrite -!perm_mxM mulVg perm_mx1 perm_mx_eq1 => /eqP/(congr1 (mulg t)).
113+ rewrite -!perm_mxM mulVg perm_mx1 perm_mx_eq1 => /eqP/(congr1 (mul t)).
114114by rewrite mulgA mulgV mulg1 mul1g.
115115Qed .
116116
401401End PermMatrixSum.
402402
403403
404- Fact Bruhat_display : unit. Proof . exact: tt . Qed .
404+ Fact Bruhat_display : Order.disp_t. Proof . by [] . Qed .
405405
406406Module BruhatOrder.
407407Section Def.
You can’t perform that action at this time.
0 commit comments