test(tests/lean/interactive): add test for proof_state info
This commit is contained in:
parent
c74da8bea2
commit
e9d8a960d9
2 changed files with 49 additions and 0 deletions
19
tests/lean/interactive/proof_state_info3.input
Normal file
19
tests/lean/interactive/proof_state_info3.input
Normal file
|
@ -0,0 +1,19 @@
|
|||
VISIT proof_state_info3.lean
|
||||
SYNC 11
|
||||
|
||||
|
||||
theorem tst (a b c : Prop) : a → b → a ∧ b :=
|
||||
begin
|
||||
info,
|
||||
intros (Ha, Hb),
|
||||
info,
|
||||
apply and.intro,
|
||||
apply Ha,
|
||||
apply Hb,
|
||||
end
|
||||
WAIT
|
||||
REPLACE 7
|
||||
state,
|
||||
SHOW
|
||||
WAIT
|
||||
INFO 8 17
|
30
tests/lean/interactive/proof_state_info3.input.expected.out
Normal file
30
tests/lean/interactive/proof_state_info3.input.expected.out
Normal file
|
@ -0,0 +1,30 @@
|
|||
-- BEGINWAIT
|
||||
-- ENDWAIT
|
||||
-- BEGINSHOW
|
||||
|
||||
|
||||
theorem tst (a b c : Prop) : a → b → a ∧ b :=
|
||||
begin
|
||||
info,
|
||||
intros (Ha, Hb),
|
||||
state,
|
||||
apply and.intro,
|
||||
apply Ha,
|
||||
apply Hb,
|
||||
end
|
||||
-- ENDSHOW
|
||||
-- BEGINWAIT
|
||||
-- ENDWAIT
|
||||
-- BEGININFO
|
||||
-- PROOF_STATE|8|17
|
||||
a b c : Prop,
|
||||
Ha : a,
|
||||
Hb : b
|
||||
⊢ a
|
||||
--
|
||||
a b c : Prop,
|
||||
Ha : a,
|
||||
Hb : b
|
||||
⊢ b
|
||||
-- ACK
|
||||
-- ENDINFO
|
Loading…
Reference in a new issue