mirror of
https://github.com/ilyakooo0/Idris-dev.git
synced 2024-11-15 01:25:05 +03:00
25 lines
586 B
Idris
25 lines
586 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 MNat = zero | succ MNat
|
|
|
|
Id : (A : Type) -> A -> A -> Type
|
|
Id = \A,x,y => x = y -- {a = A} {b = A}
|
|
|
|
IdRefl : (A : Type) -> (a : A) -> Id A a a
|
|
IdRefl A a = Refl {x = a}
|
|
|
|
zzzz : Id MNat zero zero
|
|
zzzz = IdRefl MNat zero
|
|
|
|
eep : TTSigma MNat (\ c => Id MNat c zero)
|
|
eep = (sigma MNat (\b => Id MNat b zero) zero zzzz)
|
|
|
|
eep2 : TTSigma MNat (\ c => Id MNat c zero)
|
|
eep2 = (sigma MNat (\b => Id MNat b zero) zero (IdRefl MNat zero))
|
|
|
|
|
|
|