idris-0.9.18: test/reg047/reg047.idr

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