2020-05-19 20:25:18 +03:00
|
|
|
1/1: Building Erase (Erase.idr)
|
2020-07-28 15:11:42 +03:00
|
|
|
Error: While processing left hand side of bad. Can't match on False (Erased argument).
|
|
|
|
|
2021-06-05 14:53:22 +03:00
|
|
|
Erase:5:5--5:10
|
2021-02-11 20:24:26 +03:00
|
|
|
1 | myReplace : forall p . (0 rule : x = y) -> (1 val : p y) -> p x
|
|
|
|
2 | myReplace Refl prf = prf
|
|
|
|
3 |
|
|
|
|
4 | bad : (0 x : Bool) -> Bool
|
2020-07-22 22:16:43 +03:00
|
|
|
5 | bad False = True
|
2021-02-11 20:24:26 +03:00
|
|
|
^^^^^
|
2020-07-28 15:11:42 +03:00
|
|
|
|
|
|
|
Error: While processing left hand side of minusBad. Can't match on LeZ (Erased argument).
|
|
|
|
|
2021-06-05 14:53:22 +03:00
|
|
|
Erase:19:18--19:21
|
2021-02-11 20:24:26 +03:00
|
|
|
15 | minus (S k) (S j) (LeS p) = minus k j p
|
|
|
|
16 |
|
|
|
|
17 | -- y is used in the run time case tree, so erasure not okay
|
|
|
|
18 | minusBad : (x : Nat) -> (0 y : Nat) -> (0 prf : LT y x) -> Nat
|
2020-07-22 22:16:43 +03:00
|
|
|
19 | minusBad (S k) Z LeZ = S k
|
2021-02-11 20:24:26 +03:00
|
|
|
^^^
|
2020-07-28 15:11:42 +03:00
|
|
|
|
2020-05-19 20:25:18 +03:00
|
|
|
Main> \m => minus (S (S m)) m prf
|
|
|
|
Main> Bye for now!
|