comparison src/PushPopType.agda.replaced @ 1:73127e0ab57c

(none)
author soto@cr.ie.u-ryukyu.ac.jp
date Tue, 08 Sep 2020 18:38:08 +0900
parents
children
comparison
equal deleted inserted replaced
0:b919985837a3 1:73127e0ab57c
1 pushOnce : Meta @$\rightarrow$@ Meta
2 pushOnce m = M.exec pushSingleLinkedStackCS m
3
4 popOnce : Meta @$\rightarrow$@ Meta
5 popOnce m = M.exec popSingleLinkedStackCS m
6
7 push-pop-type : Meta @$\rightarrow$@ Set@$\_{1}$@
8 push-pop-type meta =
9 M.exec (M.csComp (M.cs popOnce) (M.cs pushOnce)) meta @$\equiv$@ meta