From 32c0cdc9104ecd4d43e1247033e2c4fd95a5ce17 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Thu, 9 Jun 2016 14:18:52 +0200
Subject: proof mode: print unification constraints

along with goals, with nice formatting.
---
 test-suite/output/unifconstraints.out | 83 +++++++++++++++++++++++++++++++++++
 test-suite/output/unifconstraints.v   | 21 +++++++++
 2 files changed, 104 insertions(+)
 create mode 100644 test-suite/output/unifconstraints.out
 create mode 100644 test-suite/output/unifconstraints.v

(limited to 'test-suite')

diff --git a/test-suite/output/unifconstraints.out b/test-suite/output/unifconstraints.out
new file mode 100644
index 0000000000..d152052ba3
--- /dev/null
+++ b/test-suite/output/unifconstraints.out
@@ -0,0 +1,83 @@
+3 focused subgoals
+(shelved: 1)
+  
+  ============================
+  ?Goal 0
+
+subgoal 2 is:
+ forall n : nat, ?Goal n -> ?Goal (S n)
+subgoal 3 is:
+ nat
+unification constraints:
+ ?Goal ?Goal2 <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+ ?Goal ?Goal2 <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+3 focused subgoals
+(shelved: 1)
+  
+  n, m : nat
+  ============================
+  ?Goal@{n:=n; m:=m} 0
+
+subgoal 2 is:
+ forall n0 : nat, ?Goal@{n:=n; m:=m} n0 -> ?Goal@{n:=n; m:=m} (S n0)
+subgoal 3 is:
+ nat
+unification constraints:
+ ?Goal@{n:=n; m:=m} ?Goal2@{n:=n; m:=m} <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+ ?Goal@{n:=n; m:=m} ?Goal2@{n:=n; m:=m} <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+3 focused subgoals
+(shelved: 1)
+  
+  m : nat
+  ============================
+  ?Goal1@{m:=m} 0
+
+subgoal 2 is:
+ forall n0 : nat, ?Goal1@{m:=m} n0 -> ?Goal1@{m:=m} (S n0)
+subgoal 3 is:
+ nat
+unification constraints:
+ 
+ n, m : nat |- ?Goal1@{m:=m} ?Goal0@{n:=n; m:=m} <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+ 
+ n, m : nat |- ?Goal1@{m:=m} ?Goal0@{n:=n; m:=m} <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+3 focused subgoals
+(shelved: 1)
+  
+  m : nat
+  ============================
+  ?Goal0@{m:=m} 0
+
+subgoal 2 is:
+ forall n0 : nat, ?Goal0@{m:=m} n0 -> ?Goal0@{m:=m} (S n0)
+subgoal 3 is:
+ nat
+unification constraints:
+ 
+ n, m : nat |- ?Goal0@{m:=m} ?Goal2@{n:=n} <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
+ 
+ n, m : nat |- ?Goal0@{m:=m} ?Goal2@{n:=n} <=
+   True /\ True /\ True \/
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+   veeryyyyyyyyyyyyloooooooooooooonggidentifier
diff --git a/test-suite/output/unifconstraints.v b/test-suite/output/unifconstraints.v
new file mode 100644
index 0000000000..c76fc74a0c
--- /dev/null
+++ b/test-suite/output/unifconstraints.v
@@ -0,0 +1,21 @@
+(* Set Printing Existential Instances. *)
+Axiom veeryyyyyyyyyyyyloooooooooooooonggidentifier : nat.
+Goal True /\ True /\ True \/
+             veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+             veeryyyyyyyyyyyyloooooooooooooonggidentifier.
+  refine (nat_rect _ _ _ _).
+  Show.
+Admitted.
+
+Set Printing Existential Instances.
+Goal forall n m : nat, True /\ True /\ True \/
+                        veeryyyyyyyyyyyyloooooooooooooonggidentifier =
+                        veeryyyyyyyyyyyyloooooooooooooonggidentifier.
+  intros.
+  refine (nat_rect _ _ _ _).
+  Show.
+  clear n. 
+  Show.
+  3:clear m.
+  Show.
+Admitted.
-- 
cgit v1.2.3