We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 23e3fe1 commit e77c237Copy full SHA for e77c237
Cubical/Algebra/SymmetricGroup.agda
@@ -77,12 +77,11 @@ SymBool≡Bool : SymGroup Bool isSetBool ≡ BoolGroup
77
SymBool≡Bool = uaGroup SymBool≃Bool
78
79
module _ (n : ℕ) where
80
- open import Cubical.Data.Fin.LehmerCode using (factorial)
81
82
- ⟨Sym⟩≃factorial : ⟨ FinSymGroup n ⟩ ≃ Fin (factorial n)
+ ⟨Sym⟩≃factorial : ⟨ FinSymGroup n ⟩ ≃ Fin (n !)
83
⟨Sym⟩≃factorial = SumFin≃≃ n
84
85
- ⟨Sym⟩≡factorial : ⟨ FinSymGroup n ⟩ ≡ Fin (factorial n)
+ ⟨Sym⟩≡factorial : ⟨ FinSymGroup n ⟩ ≡ Fin (n !)
86
⟨Sym⟩≡factorial = ua ⟨Sym⟩≃factorial
87
88
Sym-cong-≃ : ∀ isSetX isSetY → X ≃ Y → GroupEquiv (SymGroup X isSetX) (SymGroup Y isSetY)
0 commit comments