From 03eaad01a90813c8656b0306888644106939f537 Mon Sep 17 00:00:00 2001 From: msozeau Date: Sat, 23 Dec 2006 18:11:18 +0000 Subject: Addition of a "Combined Scheme" vernacular command for building the conjunction of mutual inductions principles. e.g: Combined Scheme mutind from tree_ind, forest_ind gives a conclusion (forall t : tree, P t) /\ (forall f : forest, P0 f). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9461 85f007b7-540e-0410-9357-904b9bb8a0f7 --- interp/coqlib.ml | 2 ++ interp/coqlib.mli | 1 + 2 files changed, 3 insertions(+) (limited to 'interp') diff --git a/interp/coqlib.ml b/interp/coqlib.ml index cfde10202..5952d3503 100644 --- a/interp/coqlib.ml +++ b/interp/coqlib.ml @@ -236,6 +236,7 @@ let coq_I = lazy_init_constant ["Logic"] "I" (* Connectives *) let coq_not = lazy_init_constant ["Logic"] "not" let coq_and = lazy_init_constant ["Logic"] "and" +let coq_conj = lazy_init_constant ["Logic"] "conj" let coq_or = lazy_init_constant ["Logic"] "or" let coq_ex = lazy_init_constant ["Logic"] "ex" @@ -246,6 +247,7 @@ let build_coq_I () = Lazy.force coq_I let build_coq_False () = Lazy.force coq_False let build_coq_not () = Lazy.force coq_not let build_coq_and () = Lazy.force coq_and +let build_coq_conj () = Lazy.force coq_conj let build_coq_or () = Lazy.force coq_or let build_coq_ex () = Lazy.force coq_ex diff --git a/interp/coqlib.mli b/interp/coqlib.mli index 098dad1d5..0a37eefbd 100644 --- a/interp/coqlib.mli +++ b/interp/coqlib.mli @@ -129,6 +129,7 @@ val build_coq_not : constr delayed (* Conjunction *) val build_coq_and : constr delayed +val build_coq_conj : constr delayed (* Disjunction *) val build_coq_or : constr delayed -- cgit v1.2.3