diff options
Diffstat (limited to 'test-suite/output/Tactics.v')
-rw-r--r-- | test-suite/output/Tactics.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/output/Tactics.v b/test-suite/output/Tactics.v index 24a33651..8fa91994 100644 --- a/test-suite/output/Tactics.v +++ b/test-suite/output/Tactics.v @@ -7,3 +7,12 @@ Lemma test : True -> True /\ True. intro H; split; [a H|e H]. Show Script. Qed. + +(* Test printing of match context *) +(* Used to fail after translator removal (see bug #1070) *) + +Lemma test2 : forall n:nat, forall f: nat -> bool, O = if (f n) then O else O. +Proof. +intros;match goal with |- context [if ?X then _ else _ ] => case X end;trivial. +Show Script. +Qed. |