Mercurial > hg > Members > kono > Proof > galois

changeset 215:189ce31dc52a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Q Q1
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 06 Dec 2020 06:40:38 +0900
parents b438377a7e11
children 658789e98091
files FLComm.agda
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/FLComm.agda	Sun Dec 06 00:20:53 2020 +0900
+++ b/FLComm.agda	Sun Dec 06 06:40:38 2020 +0900
@@ -111,27 +111,27 @@
 anyComm [] [] = record { commList = [] ; commAny = λ _ _ () }
 anyComm [] (cons q Q qr) = record { commList = [] ; commAny = λ _ _ () }
 anyComm (cons p P pr) [] = record { commList = [] ; commAny = λ _ _ _ () }
-anyComm (cons p P pr) Q = anyc0n Q where
-  anyc0n : (Q1 : FList n) → AnyComm (cons p P pr) Q1
-  anyc00 : (Q1 : FList n) (q : FL n) → fresh (FL n) ⌊ _f<?_ ⌋ q Q1 → fresh (FL n) ⌊ _f<?_ ⌋ (perm→FL [ FL→perm p , FL→perm q ]) (commList (anyc0n Q1))
+anyComm (cons p P pr) Q = anyc0n Q Q where
+  anyc0n : (Q Q1 : FList n) → AnyComm (cons p P pr) Q
+  anyc00 : (Q1 : FList n) (q : FL n) → fresh (FL n) ⌊ _f<?_ ⌋ q Q1 → fresh (FL n) ⌊ _f<?_ ⌋ (perm→FL [ FL→perm p , FL→perm q ]) (commList (anyc0n Q Q1))
   anyc00 = {!!}
   anyc01 :  (Q1 : FList n)  (q : FL n) → (qr : fresh (FL n) ⌊ _f<?_ ⌋ q Q1 ) → (p₁ q₁ : FL n) → Any (_≡_ p₁) (cons p P pr) → Any (_≡_ q₁) (cons q Q1 qr) →
-    Any (_≡ perm→FL [ FL→perm p₁ , FL→perm q₁ ]) (cons (perm→FL [ FL→perm p , FL→perm q ])  (commList (anyc0n Q1)) (anyc00 Q1 q qr)) 
+    Any (_≡ perm→FL [ FL→perm p₁ , FL→perm q₁ ]) (cons (perm→FL [ FL→perm p , FL→perm q ])  (commList (anyc0n Q Q1)) (anyc00 Q1 q qr)) 
   anyc01 Q1 q qr p q   (here refl)  (here refl)  = here refl
-  anyc01 Q1 q qr p q₁  (here refl)  (there anyq) = there (commAny (anyc0n  Q1) p q₁ (here refl) anyq ) 
-  anyc01 Q1 q qr p₁ q  (there anyp) (here refl)  with commAny (anyc0n []) p₁ q (there anyp) {!!} --  Any (_≡_ q) Q
+  anyc01 Q1 q qr p q₁  (here refl)  (there anyq) = there (commAny (anyc0n  Q Q1) p q₁ (here refl) ? ) 
+  anyc01 Q1 q qr p₁ q  (there anyp) (here refl)  with commAny (anyc0n Q []) p₁ q (there anyp) {!!} --  Any (_≡_ q) Q
   ... | t = {!!}
    where
     -- anyc02 Q p₁ q qr anyp where
     anyc02 :  {P : FList n} {p₂ : FL n} {pr₂ : fresh (FL n) ⌊ _f<?_ ⌋ p₂ P}
            → (Q1 : FList n) (p₁ q : FL n) → (qr : fresh (FL n) ⌊ _f<?_ ⌋ q Q1 ) → Any (_≡_ p₁) (cons p₂ P pr₂)
-           → Any (_≡ perm→FL [ FL→perm p₁ , FL→perm q ]) (cons (perm→FL [ FL→perm p , FL→perm q ]) (commList (anyc0n Q1)) (anyc00 Q1 q qr)) 
+           → Any (_≡ perm→FL [ FL→perm p₁ , FL→perm q ]) (cons (perm→FL [ FL→perm p , FL→perm q ]) (commList (anyc0n Q Q1)) (anyc00 Q1 q qr)) 
     anyc02 {P} Q1 p₁ q qr (here refl) = {!!}
     anyc02 {P} Q1 p₁ q qr (there any) = {!!}
-  anyc01 Q1 q qr p₁ q₁ (there anyp) (there anyq) = there (commAny (anyc0n Q1) p₁ q₁ (there anyp) anyq )
-  anyc0n [] = record { commList = (commList (anyComm P Q)) ; commAny = λ _ _ _ () }
-  anyc0n (cons q Q1 qr ) = record { commList = cons (perm→FL [ FL→perm p , FL→perm q ]) (commList (anyc0n Q1)) (anyc00 Q1 q qr) 
-                                 ; commAny = anyc01 Q1 q qr }
+  anyc01 Q1 q qr p₁ q₁ (there anyp) (there anyq) = there (commAny (anyc0n Q Q1) p₁ q₁ (there anyp) ? )
+  anyc0n Q [] = record { commList = (commList (anyComm P Q)) ; commAny = ? }
+  anyc0n Q (cons q Q1 qr ) = record { commList = cons (perm→FL [ FL→perm p , FL→perm q ]) (commList (anyc0n Q Q1)) ? 
+                                 ; commAny = ? }
 
 -- {-# TERMINATING #-}
 CommStage→ : (i : ℕ) → (x : Permutation n n ) → deriving i x → Any (perm→FL x ≡_) ( CommFListN i )