Mercurial > hg > Members > kono > Proof > automaton

changeset 313:ae33e1504f2b

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 Mon, 03 Jan 2022 00:22:46 +0900
parents 025c05355024
children a69308ed107a
files automaton-in-agda/src/non-regular.agda
diffstat 1 files changed, 6 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/automaton-in-agda/src/non-regular.agda	Sun Jan 02 23:18:15 2022 +0900
+++ b/automaton-in-agda/src/non-regular.agda	Mon Jan 03 00:22:46 2022 +0900
@@ -164,21 +164,20 @@
    ... | true | record { eq = eq } | false | record { eq = np} = record { x = [] ; y = i ∷ TA1.y ta ;  z = TA1.z ta ; xyz=is =  cong (i ∷_ ) (TA1.yz=is ta)
            ; non-nil-y = λ ()
            ; trace-xyz  = tnext q (TA1.trace-yz ta)
-           ; trace-xyyz = tra-04 (i ∷ TA1.y ta) q (tnext q (subst (λ k → Trace fa (y1 ++ z1) (δ fa k i) ) (equal→refl finq eq) tryz0))
-              (tra-052 (TA1.q=qd ta)) }  where 
+           ; trace-xyyz = tnext q (subst (λ k → Trace fa (TA1.y ta ++ (i ∷ TA1.y ta) ++ TA1.z ta) (δ fa k i)  )
+                (equal→refl finq eq) (tra-04 (TA1.y ta) (δ fa qd i) tryz0 (qdseq1 (TA1.q=qd ta)))) } where
         ta : TA1 fa finq (δ fa q i ) qd is
         ta = tra-phase2 (δ fa q i ) is tr p 
         y1 = TA1.y ta
         z1 = TA1.z ta
         tryz0 : Trace fa (y1 ++ z1) (δ fa qd i)
         tryz0 = subst₂ (λ j k → Trace fa k (δ fa j i) ) (sym (equal→refl finq eq)) (sym (TA1.yz=is ta)) tr
+        tryz1 : Trace fa (y1 ++ z1) (δ fa q i)
+        tryz1 = TA1.trace-yz ta
         tryz : Trace fa (i ∷ y1 ++ z1) qd
         tryz = tnext qd tryz0
-        tra-06 : QDSEQ finq qd (TA1.z ta) (TA1.trace-yz ta)
-        tra-06 = TA1.q=qd ta 
-        tra-052 : QDSEQ finq qd z1 (TA1.trace-yz ta)
-               →  QDSEQ finq qd z1 (tnext q (subst (λ k → Trace fa (y1 ++ z1) (δ fa k i)) (equal→refl finq eq) tryz0))
-        tra-052 drs = {!!} -- qd-next ? ? ? ? (subst (λ k → Trace fa k (δ fa q i) ) ? drs)
+        qdseq1 : QDSEQ finq qd z1 {δ fa q i} {y1} (TA1.trace-yz ta) → QDSEQ finq qd z1 {δ fa qd i} {y1} tryz0
+        qdseq1 drs = {!!}
         tra-04 : (y2 : List Σ) → (q : Q) → (tr : Trace fa (y2 ++ z1) q)
                →  QDSEQ finq qd z1 {q} {y2} tr -- should be y ++ z1
                → Trace fa (y2 ++ (i ∷ y1) ++ z1) q