Commit 1248c4ed authored by Nicola Botta's avatar Nicola Botta
Browse files

Initial.

parent 0c7ecb4c
> module NatBasicProperties
> %default total
> %auto_implicits on
> %access export
> -- %access public export
> {-
> implementation Uninhabited (S n = Z) where
> uninhabited Refl impossible
> -}
> |||
> predInjective : (left : Nat) -> (right : Nat) -> Not (S left = S right) -> Not (left = right)
> predInjective left right contra = contra . (eqSucc left right)
> %freeze predInjective
> |||
> succInjective' : (left : Nat) -> (right : Nat) -> Not (left = right) -> Not (S left = S right)
> succInjective' left right contra = contra . (succInjective left right)
> %freeze succInjective'
> {-
> ---}
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