view cbc/maybe-subtype.agda @ 60:bd428bd6b394

Trying define n-push/n-pop
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Sat, 14 Jan 2017 00:00:40 +0000
parents 352e8a724829
children
line wrap: on
line source

open import Level
open import Data.Maybe
open import Function using (id)
open import Relation.Binary.PropositionalEquality

module maybe-subtype (A : Set)  where


record Context : Set where

open import subtype Context as N


record Meta (A : Set) : Set where
  field
    context   : Context
    maybeElem : Maybe A