pi/src/Misc.idr

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 = Maybe

public export
lteTransp : LTE a b -> a = c -> b = d -> LTE c d
lteTransp p Refl Refl = p