Mercurial > hg > Papers > 2020 > ryokka-master
diff paper/src/AgdaNPushNPopProof.agda.replaced @ 5:196ba119ca89
fix, and add mindmap->pdf
author | ryokka |
---|---|
date | Mon, 03 Feb 2020 21:47:43 +0900 |
parents | c7acb9211784 |
children |
line wrap: on
line diff
--- a/paper/src/AgdaNPushNPopProof.agda.replaced Wed Jan 29 22:36:17 2020 +0900 +++ b/paper/src/AgdaNPushNPopProof.agda.replaced Mon Feb 03 21:47:43 2020 +0900 @@ -1,4 +1,4 @@ -pop-n-push-type : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ SingleLinkedStack @$\mathbb{N}$@ @$\rightarrow$@ Set@$\text{1}$@ +pop-n-push-type : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ SingleLinkedStack @$\mathbb{N}$@ @$\rightarrow$@ Set@$\_{1}$@ pop-n-push-type n cn ce s = M.exec (M.csComp (M.cs popOnce) (n-push (suc n))) meta @$\equiv$@ M.exec (n-push n) meta where @@ -30,7 +30,7 @@ -n-push-pop-type : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ SingleLinkedStack @$\mathbb{N}$@ @$\rightarrow$@ Set@$\text{1}$@ +n-push-pop-type : @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ @$\mathbb{N}$@ @$\rightarrow$@ SingleLinkedStack @$\mathbb{N}$@ @$\rightarrow$@ Set@$\_{1}$@ n-push-pop-type n cn ce st = M.exec (M.csComp (n-pop n) (n-push n)) meta @$\equiv$@ meta where meta = id-meta cn ce st