22 lines
260 B
Idris
22 lines
260 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 = Maybe
|
||
|
|
||
|
public export
|
||
|
lteTransp : LTE a b -> a = c -> b = d -> LTE c d
|
||
|
lteTransp p Refl Refl = p
|