We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent f14a674 commit 6090714Copy full SHA for 6090714
Cubical/Data/FinSet/Properties.agda
@@ -107,11 +107,11 @@ isFinSet⊥ = isFinSetFin
107
isFinSetLift :
108
{L L' : Level} →
109
{A : Type L} →
110
- isFinSet A → isFinSet (Lift {L}{L'} A)
+ isFinSet A → isFinSet (Lift L' A)
111
fst (isFinSetLift {A = A} isFinSetA) = isFinSetA .fst
112
snd (isFinSetLift {A = A} isFinSetA) =
113
Prop.elim
114
- {P = λ _ → ∥ Lift A ≃ Fin (isFinSetA .fst) ∥₁}
+ {P = λ _ → ∥ Lift _ A ≃ Fin (isFinSetA .fst) ∥₁}
115
(λ [a] → isPropPropTrunc )
116
(λ A≅Fin → ∣ compEquiv (invEquiv (LiftEquiv {A = A})) A≅Fin ∣₁)
117
(isFinSetA .snd)
0 commit comments