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

Initial.

parent 91879f03
> module Fun.Predicates
> %default total
> %access public export
> %auto_implicits off
Domain and codomain:
> ||| Domain
> Domain : {A, B : Type} -> (f : A -> B) -> Type
> Domain {A} f = A
> ||| Codomain
> Codomain : {A, B : Type} -> (f : A -> B) -> Type
> Codomain {B} f = B
Extensional equality:
> ||| Extensional equality
> ExtEq : {A, B : Type} -> (f, g : A -> B) -> Type
> -- ExtEq f g = (a : Domain f) -> f a = g a
> ExtEq {A} f g = (a : A) -> f a = g a
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