blob: 15bd3cc92d616ccb75b6bac399910fbf8f832a6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# Script simulating a dialog between coqide and coqtop -ideslave
# Run it via fake_ide
#
# Test backtracking in presence of nested proofs
# Fifth, undo from an inner proof to a previous inner proof
#
ADD { Set Nested Proofs Allowed. }
ADD { Lemma aa : True -> True /\ True. }
ADD { intro H. }
ADD { split. }
ADD { Lemma bb : False -> False. }
ADD here { intro H. }
ADD { apply H. }
ADD { Qed. }
ADD { apply H. }
ADD { Lemma cc : False -> True. }
ADD { intro H. }
ADD { destruct H. }
EDIT_AT here
# <replay>
ADD { apply H. }
ADD { Qed. }
ADD { apply H. }
ADD { Lemma cc : False -> True. }
ADD { intro H. }
ADD { destruct H. }
# </replay>
ADD { Qed. }
ADD { apply H. }
ADD { Qed. }
QUERY { Fail Show. }
QUERY { Check (aa,bb,cc). }
|
