test(tests/lean/interactive): add back command test

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-12-05 17:19:53 -08:00
parent e069ce640b
commit 74a8b5f2f4
2 changed files with 28 additions and 0 deletions

View file

@ -0,0 +1,9 @@
Theorem T2 (a b : Bool) : b => a \/ b.
apply imp_tactic.
apply disj_tactic.
back.
back.
apply assumption_tactic.
done.
Show Environment 1.

View file

@ -0,0 +1,19 @@
Type Ctrl-D or 'Exit.' to exit or 'Help.' for help.
# Set: pp::colors
Set: pp::unicode
Proof state:
a : Bool, b : Bool ⊢ b ⇒ a b
## Proof state:
H : b, a : Bool, b : Bool ⊢ a b
## Proof state:
H : b, a : Bool, b : Bool ⊢ a
## Proof state:
H : b, a : Bool, b : Bool ⊢ b
## Error (line: 8, pos: 0) failed to backtrack
Proof state:
H : b, a : Bool, b : Bool ⊢ b
## Proof state:
no goals
## Proved: T2
# Theorem T2 (a b : Bool) : b ⇒ a b := Discharge (λ H : b, Disj2 a H)
#