Skip to content

Commit 6090714

Browse files
committed
chore: make level arguments explicit pt 4
1 parent f14a674 commit 6090714

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

Cubical/Data/FinSet/Properties.agda

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -107,11 +107,11 @@ isFinSet⊥ = isFinSetFin
107107
isFinSetLift :
108108
{L L' : Level}
109109
{A : Type L}
110-
isFinSet A isFinSet (Lift {L}{L'} A)
110+
isFinSet A isFinSet (Lift L' A)
111111
fst (isFinSetLift {A = A} isFinSetA) = isFinSetA .fst
112112
snd (isFinSetLift {A = A} isFinSetA) =
113113
Prop.elim
114-
{P = λ _ ∥ Lift A ≃ Fin (isFinSetA .fst) ∥₁}
114+
{P = λ _ ∥ Lift _ A ≃ Fin (isFinSetA .fst) ∥₁}
115115
(λ [a] isPropPropTrunc )
116116
(λ A≅Fin ∣ compEquiv (invEquiv (LiftEquiv {A = A})) A≅Fin ∣₁)
117117
(isFinSetA .snd)

0 commit comments

Comments
 (0)