Mercurial > hg > Papers > 2018 > suruga-thesis
view paper/final_main/src/PushPopType.agda @ 4:0f938112b48e
add paper
author | suruga |
---|---|
date | Thu, 15 Feb 2018 14:48:08 +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