view prepaper/src/AgdaStackDS.agda.replaced @ 14:a63df15c9afc default tip

DONE
author soto <soto@cr.ie.u-ryukyu.ac.jp>
date Mon, 15 Feb 2021 23:36:39 +0900
parents 3dba680da508
children
line wrap: on
line source

record Context : Set where
  field
    -- fields for stack
    element : Maybe A


open import subtype Context as N

record Meta  : Set@$\_{1}$@ where
  field
    -- context as set of data segments
    context : Context
    stack   : SingleLinkedStack A
    nextCS  : N.CodeSegment Context Context

open import subtype Meta as M