mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-11-15 01:25:05 +03:00
19 lines
445 B
Idris
19 lines
445 B
Idris
module test
|
|
|
|
data TTSigma : (A : Type) -> (B : A -> Type) -> Type where
|
|
sigma : (A : Type) -> (B : A -> Type) -> (a : A) -> B a -> TTSigma A B
|
|
|
|
data Nat = zero | succ Nat
|
|
|
|
Id : (A : Type) -> A -> A -> Type
|
|
Id A = (=) {A = A} {B = A}
|
|
|
|
IdRefl : (A : Type) -> (a : A) -> Id A a a
|
|
IdRefl A a = Refl {x = a}
|
|
|
|
zzz : Id Nat zero zero
|
|
zzz = IdRefl Nat zero
|
|
|
|
eep : TTSigma Nat (\ a => Id Nat a zero)
|
|
eep = sigma Nat (\ a => Id Nat a zero) zero zzz
|