2020-06-07 00:20:25 +03:00
|
|
|
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.
|
2020-07-28 15:11:42 +03:00
|
|
|
|
2021-06-05 14:53:22 +03:00
|
|
|
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
|
2021-04-23 14:05:13 +03:00
|
|
|
^^
|
2020-07-28 15:11:42 +03:00
|
|
|
|