From cde87048ee6074e203db8b062740bec0be9484d2 Mon Sep 17 00:00:00 2001 From: Paul Steckler Date: Thu, 25 May 2017 12:21:48 -0400 Subject: add Show test with -emacs flag --- test-suite/output/Show.out | 12 ++++++++++++ test-suite/output/Show.v | 11 +++++++++++ 2 files changed, 23 insertions(+) create mode 100644 test-suite/output/Show.out create mode 100644 test-suite/output/Show.v (limited to 'test-suite/output') diff --git a/test-suite/output/Show.out b/test-suite/output/Show.out new file mode 100644 index 0000000000..bf1bf2809d --- /dev/null +++ b/test-suite/output/Show.out @@ -0,0 +1,12 @@ +3 subgoals (ID 29) + + H : 0 = 0 + ============================ + 1 = 1 + +subgoal 2 (ID 33) is: + 1 = S (S m') +subgoal 3 (ID 20) is: + S (S n') = S m + +(dependent evars: (printing disabled) ) diff --git a/test-suite/output/Show.v b/test-suite/output/Show.v new file mode 100644 index 0000000000..60faac8dd9 --- /dev/null +++ b/test-suite/output/Show.v @@ -0,0 +1,11 @@ +(* -*- mode: coq; coq-prog-args: ("-emacs") -*- *) + +(* tests of Show output with -emacs flag to coqtop; see bug 5535 *) + +Theorem nums : forall (n m : nat), n = m -> (S n) = (S m). +Proof. + intros. + induction n as [| n']. + induction m as [| m']. + Show. +Admitted. -- cgit v1.2.3