Mercurial > hg > Papers > 2018 > nozomi-master

view paper/src/PushPopType.agda @ 118:05068a4d0b52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix specification
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Mon, 13 Feb 2017 17:39:10 +0900
parents 40ae32725e55
children
line wrap: on
line source

pushOnce : Meta -> Meta
pushOnce m = M.exec pushSingleLinkedStackCS m

popOnce : Meta -> Meta
popOnce m = M.exec popSingleLinkedStackCS m

push-pop-type : Meta -> Set₁
push-pop-type meta =
    M.exec (M.csComp  (M.cs popOnce) (M.cs pushOnce)) meta ≡ meta