view cbc/maybe-subtype.agda @ 66:211fde284b7e

Trying prove n-push/n-pop
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Sun, 15 Jan 2017 02:33:47 +0000
parents bd428bd6b394
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