Commit ab915621 authored by Nicola Botta's avatar Nicola Botta
Browse files

Initial.

parent 1248c4ed
> module Exists.Operations
> import Pairs.Operations
> %default total
> %access public export
> |||
> outl : {A : Type} -> {P : A -> Type} -> Exists {a = A} P -> A
> outl = getWitness
> |||
> outr : {A : Type} -> {P : A -> Type} -> (s : Exists {a = A} P) -> P (outl s)
> outr = getProof
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment