31 lines
417 B
Idris
31 lines
417 B
Idris
module Misc
|
|
|
|
import Data.Nat
|
|
|
|
%default total
|
|
|
|
public export
|
|
Index : Type
|
|
Index = Nat
|
|
|
|
public export
|
|
Name : Type
|
|
Name = String
|
|
|
|
public export
|
|
PI : Type -> Type
|
|
PI = Either String
|
|
|
|
public export
|
|
oops : String -> PI a
|
|
oops = Left
|
|
|
|
public export
|
|
lteTransp : LTE a b -> a = c -> b = d -> LTE c d
|
|
lteTransp p Refl Refl = p
|
|
|
|
public export
|
|
lteS : {n : _} -> LTE n (S n)
|
|
lteS {n = Z} = LTEZero
|
|
lteS {n = S n} = LTESucc lteS
|