view paper/src/PushPopType.agda @ 2:c7acb9211784

add code, figure. and paper fix content
author ryokka
date Mon, 27 Jan 2020 20:41:36 +0900
parents
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