From 26ca22424b286f5ff22a1fa97c38d15e224b3dc2 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Fri, 7 Apr 2006 15:08:12 +0000
Subject: - Documentation of the Program tactics. - Fixes to the subtac
 implementation, utility tactic to apply existentials to a function and build
 a dependent sum out of name, constr lists. Also defined a Utils coq module
 for tactics related to subsets and the projections for ex in Prop. -
 Enhancements to inference algorithm added but not used in the default version
 as there are some remaining bugs.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8688 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 interp/coqlib.ml  | 7 +++++++
 interp/coqlib.mli | 2 ++
 2 files changed, 9 insertions(+)

(limited to 'interp')

diff --git a/interp/coqlib.ml b/interp/coqlib.ml
index 8a55bfc2c8..f9a1c6466f 100644
--- a/interp/coqlib.ml
+++ b/interp/coqlib.ml
@@ -166,6 +166,13 @@ let build_sigma_type () =
     intro = init_constant ["Specif"] "existT";
     typ = init_constant ["Specif"] "sigT" }
 
+let build_prod () =
+  { proj1 = init_constant ["Datatypes"] "fst";
+    proj2 = init_constant ["Datatypes"] "snd";
+    elim = init_constant ["Datatypes"] "prod_rec";
+    intro = init_constant ["Datatypes"] "pair";
+    typ = init_constant ["Datatypes"] "prod" }
+
 (* Equalities *)
 type coq_leibniz_eq_data = {
   eq   : constr;
diff --git a/interp/coqlib.mli b/interp/coqlib.mli
index ed5e46c1a0..098dad1d5f 100644
--- a/interp/coqlib.mli
+++ b/interp/coqlib.mli
@@ -94,6 +94,8 @@ type coq_sigma_data = {
 
 val build_sigma_set : coq_sigma_data delayed
 val build_sigma_type : coq_sigma_data delayed
+(* Non-dependent pairs in Set from Datatypes *)
+val build_prod : coq_sigma_data delayed
 
 type coq_leibniz_eq_data = {
   eq   : constr;
-- 
cgit v1.2.3