view cbc/maybe-subtype.agda @ 65:c87e85ffde9a

Trying define n-push/n-pop equiv...
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Sat, 14 Jan 2017 05:59:49 +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