Idris2/tests/ttimp/qtt003/QTTEq.yaff

data Eq : $a -> $b -> Type where
     Refl : Eq $x $x

okay : {p : $a -> Type} -> (1 x : $a) -> (1 y : $a) -> (1 prf : Eq x y) ->
       p x -> p y
-- Should fail on the LHS, before even getting to the RHS, because
-- after elaboration 'x' appears twice even though it is linearly bound.
okay $x $x Refl $q = q
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`data Eq : $a -> $b -> Type where`
			`Refl : Eq $x $x`

fixed whitespace for .idr,.ipkg,.tex,.yaff, and *.lidr 2021-01-22 16:22:42 +03:00			`okay : {p : $a -> Type} -> (1 x : $a) -> (1 y : $a) -> (1 prf : Eq x y) ->`
Add test script They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here! 2020-05-19 20:25:18 +03:00			`p x -> p y`
			`-- Should fail on the LHS, before even getting to the RHS, because`
			`-- after elaboration 'x' appears twice even though it is linearly bound.`
			`okay $x $x Refl $q = q`