File tree Expand file tree Collapse file tree 2 files changed +3
-2
lines changed
Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -2,3 +2,4 @@ import HoTTLean.Groupoids.Sigma
22import HoTTLean.Groupoids.Pi
33import HoTTLean.Groupoids.Id
44import HoTTLean.Model.Unstructured.Interpretation
5+ import HoTTLean.Frontend.Commands
Original file line number Diff line number Diff line change @@ -323,14 +323,14 @@ private theorem wf_expr :
323323 case clos₂_tp Aenv Benv C σ =>
324324 have B := C.wf_binder
325325 have A := B.wf_binder
326- apply C.subst (σ.up A |>.up B) |>.conv_ctx
326+ apply WfTp.conv_ctx _ <| C.subst (σ.up A |>.up B)
327327 apply EqCtx.refl Aenv.wf_ctx
328328 |>.snoc Aenv
329329 |>.snoc (Benv.conv_binder Aenv.symm_tp)
330330 case clos₂_val_tp Aenv Benv _ σ C =>
331331 have B := C.wf_binder
332332 have A := B.wf_binder
333- apply C.subst (σ.up A |>.up B) |>.conv_ctx
333+ apply WfTp.conv_ctx _ <| C.subst (σ.up A |>.up B)
334334 apply EqCtx.refl Aenv.wf_ctx
335335 |>.snoc Aenv
336336 |>.snoc (Benv.conv_binder Aenv.symm_tp)
You can’t perform that action at this time.
0 commit comments