Mercurial > hg > Members > kono > Proof > galois

diff sym3.agda @ 88:405c1f727ffe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 28 Aug 2020 11:05:45 +0900
parents 32004c9a70b1
children d3da6e2c0d90
line wrap: on
line diff
--- a/sym3.agda	Thu Aug 27 11:44:58 2020 +0900
+++ b/sym3.agda	Fri Aug 28 11:05:45 2020 +0900
@@ -35,6 +35,8 @@
       p00 (suc zero) = refl
       p00 (suc (suc zero)) = refl
 
+   p1 =  FL→perm ((# 0) :: ((# 0) :: ((# 0 ) :: f0))) 
+
    open _=p=_
    
    solved1 :  (x : Permutation 3 3) →  Commutator (λ x₁ → Commutator (λ x₂ → Lift (Level.suc Level.zero) ⊤) x₁) x → x =p= pid