Idris2/tests/idris2/reg023/expected

12 lines
570 B
Plaintext
Raw Normal View History

1/1: Building boom (boom.idr)
2020-08-16 14:20:12 +03:00
Error: While processing right hand side of with block in eraseVar. Can't solve constraint between: S (countGreater thr xs) and countGreater thr xs.
boom:23:42--23:44
2021-02-11 20:24:26 +03:00
19 | eraseVar : (thr : Int) -> (ctx : Vect n Int) -> Fin n -> Maybe (Fin (countGreater thr ctx))
20 | eraseVar thr (x :: xs) j with (x .<=. thr)
21 | eraseVar thr (x :: xs) FZ | True = Nothing
22 | eraseVar thr (x :: xs) FZ | False = Just FZ
2020-07-22 22:16:43 +03:00
23 | eraseVar thr (x :: xs) (FS i) | True = FS <$> eraseVar thr xs i
^^