37 lines
1.1 KiB
Plaintext
37 lines
1.1 KiB
Plaintext
import LSpec
|
||
import Lean
|
||
import Test.Common
|
||
|
||
open Lean
|
||
open Pantograph
|
||
|
||
namespace Pantograph.Test.Tactic.Congruence
|
||
|
||
def test_congr_arg (env: Environment): IO LSpec.TestSeq :=
|
||
let expr := "λ (n m: Nat) (h: n = m) => n * n = m * m"
|
||
runMetaMSeq env do
|
||
let expr ← parseSentence expr
|
||
Meta.lambdaTelescope expr $ λ _ body => do
|
||
let mut tests := LSpec.TestSeq.done
|
||
let target ← Meta.mkFreshExprSyntheticOpaqueMVar body
|
||
let test ← runTermElabMInMeta do
|
||
let newGoals ← runTacticOnMVar Tactic.congruenceArg target.mvarId!
|
||
pure $ LSpec.check "goals" ((← newGoals.mapM (λ x => mvarUserNameAndType x)) =
|
||
[
|
||
(`α, "Sort ?u.70"),
|
||
(`a₁, "?α"),
|
||
(`a₂, "?α"),
|
||
(`f, "?α → Nat"),
|
||
(`h, "?a₁ = ?a₂"),
|
||
(`conduit, "(?f ?a₁ = ?f ?a₂) = (n * n = m * m)"),
|
||
])
|
||
tests := tests ++ test
|
||
return tests
|
||
|
||
def suite (env: Environment): List (String × IO LSpec.TestSeq) :=
|
||
[
|
||
("congrArg", test_congr_arg env),
|
||
]
|
||
|
||
end Pantograph.Test.Tactic.Congruence
|