Skip to content

Commit 9d49dd6

Browse files
committed
fix: typechecker
1 parent 56d350a commit 9d49dd6

File tree

2 files changed

+3
-2
lines changed

2 files changed

+3
-2
lines changed

HoTTLean.lean

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,3 +2,4 @@ import HoTTLean.Groupoids.Sigma
22
import HoTTLean.Groupoids.Pi
33
import HoTTLean.Groupoids.Id
44
import HoTTLean.Model.Unstructured.Interpretation
5+
import HoTTLean.Frontend.Commands

HoTTLean/Typechecker/Value.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff 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)

0 commit comments

Comments
 (0)