@@ -80,24 +80,24 @@ Section ClassDef.
8080Record class_of T := Class
8181 { base : Choice.class_of T; mixin : mixin_of T }.
8282
83- Structure type := Pack {sort; _ : class_of sort; _ : Type }.
83+ Structure type := Pack {sort; _ : class_of sort}.
8484
8585Local Coercion base : class_of >-> Choice.class_of.
8686Local Coercion sort : type >-> Sortclass.
8787
8888Variables (T : Type) (cT : type).
8989
90- Definition class := let: Pack _ c _ as cT' := cT return class_of cT' in c.
91- Definition clone c of phant_id class c := @Pack T c T .
90+ Definition class := let: Pack _ c as cT' := cT return class_of cT' in c.
91+ Definition clone c of phant_id class c := @Pack T c.
9292
93- Let xT := let: Pack T _ _ := cT in T.
93+ Let xT := let: Pack T _ := cT in T.
9494Notation xclass := (class : class_of xT).
9595
9696Definition pack m :=
97- fun bT b & phant_id (Choice.class bT) b => Pack (@Class T b m) T .
97+ fun bT b & phant_id (Choice.class bT) b => Pack (@Class T b m).
9898
99- Definition eqType := @Equality.Pack cT xclass xT .
100- Definition choiceType := @Choice.Pack cT xclass xT .
99+ Definition eqType := @Equality.Pack cT xclass.
100+ Definition choiceType := @Choice.Pack cT xclass.
101101
102102End ClassDef.
103103
@@ -140,26 +140,26 @@ Record class_of (M : Type) : Type := Class {
140140 mixin : commutative (MonomialDef.mul base)
141141}.
142142
143- Structure type := Pack {sort; _ : class_of sort; _ : Type }.
143+ Structure type := Pack {sort; _ : class_of sort}.
144144
145145Local Coercion base : class_of >-> MonomialDef.class_of.
146146Local Coercion sort : type >-> Sortclass.
147147
148148Variables (T : Type) (cT : type).
149149
150- Definition class := let: Pack _ c _ as cT' := cT return class_of cT' in c.
151- Definition clone c of phant_id class c := @Pack T c T .
150+ Definition class := let: Pack _ c as cT' := cT return class_of cT' in c.
151+ Definition clone c of phant_id class c := @Pack T c.
152152
153- Let xT := let: Pack T _ _ := cT in T.
153+ Let xT := let: Pack T _ := cT in T.
154154Notation xclass := (class : class_of xT).
155155
156156Definition pack mul0 (m0 : @commutative T T mul0) :=
157157 fun bT b & phant_id (MonomialDef.class bT) b =>
158- fun m & phant_id m0 m => Pack (@Class T b m) T .
158+ fun m & phant_id m0 m => Pack (@Class T b m).
159159
160- Definition eqType := @Equality.Pack cT xclass xT .
161- Definition choiceType := @Choice.Pack cT xclass xT .
162- Definition monomType := @MonomialDef.Pack cT xclass xT .
160+ Definition eqType := @Equality.Pack cT xclass.
161+ Definition choiceType := @Choice.Pack cT xclass.
162+ Definition monomType := @MonomialDef.Pack cT xclass.
163163
164164End ClassDef.
165165
0 commit comments