Idris-dev/test/reg056/reg056.idr

k : (a : Type) -> (x, y : a) -> (p, q : x = y) -> p = q
k a x x Refl Refl = Refl

postulate trap : Z = Z

dodgy : (a, b : ()) -> a = b -> Void
dodgy n m Refl impossible

nonk : (trap = Refl {x = Z}) -> Void
nonk Refl impossible

false : Void
false = nonk (k Nat Z Z trap Refl)
Fix checkPossible when unifying bound vars It's not a rigid fail if it's two bound variables that differ. Fixes #1108 2014-12-21 01:33:33 +03:00			`k : (a : Type) -> (x, y : a) -> (p, q : x = y) -> p = q`
			`k a x x Refl Refl = Refl`

			`postulate trap : Z = Z`

			`dodgy : (a, b : ()) -> a = b -> Void`
			`dodgy n m Refl impossible`

Remove PRefl and all references to it 2015-05-08 23:17:30 +03:00			`nonk : (trap = Refl {x = Z}) -> Void`
Fix checkPossible when unifying bound vars It's not a rigid fail if it's two bound variables that differ. Fixes #1108 2014-12-21 01:33:33 +03:00			`nonk Refl impossible`

			`false : Void`
			`false = nonk (k Nat Z Z trap Refl)`