We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent f717d46 commit c16edadCopy full SHA for c16edad
Cubical/Data/Fin/LehmerCode.agda
@@ -191,11 +191,11 @@ encode = equivFun lehmerEquiv
191
decode : LehmerCode n → Fin n ≃ Fin n
192
decode = invEq lehmerEquiv
193
194
+-- Use the one in Cubical.Data.Nat.Properties instead
195
factorial : ℕ → ℕ
-factorial zero = 1
196
-factorial (suc n) = suc n · factorial n
+factorial = _!
197
198
-lehmerFinEquiv : LehmerCode n ≃ Fin (factorial n)
+lehmerFinEquiv : LehmerCode n ≃ Fin (n !)
199
lehmerFinEquiv {zero} = isContr→Equiv isContrLehmerZero isContrFin1
200
lehmerFinEquiv {suc n} = _ ≃⟨ invEquiv lehmerSucEquiv ⟩
201
_ ≃⟨ ≃-× (idEquiv _) lehmerFinEquiv ⟩
0 commit comments