2020-06-02 21:18:21 +03:00
|
|
|
1/1: Building refleq (refleq.idr)
|
|
|
|
LOG 0: [x, y]
|
2020-07-12 17:54:10 +03:00
|
|
|
LOG 0: Left: ((Prelude.Types.plus x) y)
|
|
|
|
LOG 0: Right: ((Prelude.Types.plus y) x)
|
2021-05-14 19:35:21 +03:00
|
|
|
Warning: We are about to implicitly bind the following lowercase names.
|
|
|
|
You may be unintentionally shadowing the associated global definitions:
|
|
|
|
any is shadowing Prelude.Interfaces.any
|
2021-10-03 12:15:01 +03:00
|
|
|
|
|
|
|
refleq:5:1--5:15
|
|
|
|
1 | import Language.Reflection
|
|
|
|
2 |
|
|
|
|
3 | %language ElabReflection
|
|
|
|
4 |
|
|
|
|
5 | solveReflected : TTImp -> Elab any
|
|
|
|
^^^^^^^^^^^^^^
|
|
|
|
|
2021-05-14 19:35:21 +03:00
|
|
|
Warning: We are about to implicitly bind the following lowercase names.
|
|
|
|
You may be unintentionally shadowing the associated global definitions:
|
|
|
|
any is shadowing Prelude.Interfaces.any
|
2021-10-03 12:15:01 +03:00
|
|
|
|
|
|
|
refleq:15:1--15:6
|
|
|
|
11 | = do logTerm "" 0 "Goal" g
|
|
|
|
12 | fail "I don't know how to prove this"
|
|
|
|
13 |
|
|
|
|
14 | %macro
|
|
|
|
15 | prove : Elab any
|
|
|
|
^^^^^
|
|
|
|
|
2020-07-28 15:11:42 +03:00
|
|
|
Error: While processing right hand side of commutes. Error during reflection: Not done
|
|
|
|
|
2021-06-05 14:53:22 +03:00
|
|
|
refleq:24:16--24:21
|
2021-02-11 20:24:26 +03:00
|
|
|
20 | logMsg "" 0 (show env)
|
|
|
|
21 | solveReflected g
|
|
|
|
22 |
|
|
|
|
23 | commutes : (x, y : Nat) -> plus x y = plus y x
|
2020-07-22 22:16:43 +03:00
|
|
|
24 | commutes x y = prove
|
2021-02-11 20:24:26 +03:00
|
|
|
^^^^^
|
2020-07-28 15:11:42 +03:00
|
|
|
|