Idris2/tests/idris2/reflection006/refleq.idr

import Language.Reflection

%language ElabReflection

solveReflected : TTImp -> Elab any
solveReflected `(Builtin.Equal {a=_} {b=_} ~(left) ~(right))
    = do logTerm "" 0 "Left" left
         logTerm "" 0 "Right" right
         fail "Not done"
solveReflected g
    = do logTerm "" 0 "Goal" g
         fail "I don't know how to prove this"

%macro
prove : Elab any
prove
    = do env <- localVars
         Just g <- goal
              | Nothing => fail "No goal to solve"
         logMsg "" 0 (show env)
         solveReflected g

commutes : (x, y : Nat) -> plus x y = plus y x
commutes x y = prove
Reflect differently on LHS On the LHS, we want to match against the reflected thing, so FC and implicits need to turn into match anything patterns, or we won't match anything at all. This means we can put quoted terms on the LHS, with pattern variables under ~(). 2020-06-02 21:18:21 +03:00			`import Language.Reflection`

			`%language ElabReflection`

In reflection, check now takes a concrete type So the type of Elab now gives the expected type that's being elaborated to, meaning that we can run 'check' in the middle of scripts and use the result. 2020-06-03 00:41:37 +03:00			`solveReflected : TTImp -> Elab any`
Reflect differently on LHS On the LHS, we want to match against the reflected thing, so FC and implicits need to turn into match anything patterns, or we won't match anything at all. This means we can put quoted terms on the LHS, with pattern variables under ~(). 2020-06-02 21:18:21 +03:00			solveReflected `(Builtin.Equal {a=_} {b=_} ~(left) ~(right))
[ new ] topics for logging levels (#569) 2020-08-20 20:45:34 +03:00			`= do logTerm "" 0 "Left" left`
			`logTerm "" 0 "Right" right`
Reflect differently on LHS On the LHS, we want to match against the reflected thing, so FC and implicits need to turn into match anything patterns, or we won't match anything at all. This means we can put quoted terms on the LHS, with pattern variables under ~(). 2020-06-02 21:18:21 +03:00			`fail "Not done"`
			`solveReflected g`
[ new ] topics for logging levels (#569) 2020-08-20 20:45:34 +03:00			`= do logTerm "" 0 "Goal" g`
Reflect differently on LHS On the LHS, we want to match against the reflected thing, so FC and implicits need to turn into match anything patterns, or we won't match anything at all. This means we can put quoted terms on the LHS, with pattern variables under ~(). 2020-06-02 21:18:21 +03:00			`fail "I don't know how to prove this"`

			`%macro`
In reflection, check now takes a concrete type So the type of Elab now gives the expected type that's being elaborated to, meaning that we can run 'check' in the middle of scripts and use the result. 2020-06-03 00:41:37 +03:00			`prove : Elab any`
Reflect differently on LHS On the LHS, we want to match against the reflected thing, so FC and implicits need to turn into match anything patterns, or we won't match anything at all. This means we can put quoted terms on the LHS, with pattern variables under ~(). 2020-06-02 21:18:21 +03:00			`prove`
			`= do env <- localVars`
			`Just g <- goal`
			`\| Nothing => fail "No goal to solve"`
[ new ] topics for logging levels (#569) 2020-08-20 20:45:34 +03:00			`logMsg "" 0 (show env)`
Reflect differently on LHS On the LHS, we want to match against the reflected thing, so FC and implicits need to turn into match anything patterns, or we won't match anything at all. This means we can put quoted terms on the LHS, with pattern variables under ~(). 2020-06-02 21:18:21 +03:00			`solveReflected g`

			`commutes : (x, y : Nat) -> plus x y = plus y x`
			`commutes x y = prove`