From 46dcebf37f85781cc7f622f1bec7314bc6af26d5 Mon Sep 17 00:00:00 2001
From: vsiles
Date: Fri, 25 May 2007 14:47:02 +0000
Subject: Modification of VernacScheme to handle a new scheme: Equality
 (equality in boolean, will be added later) and update so everything is fine
 with the new syntax.

New Type:

type scheme =
  | InductionScheme of bool * lreference * sort_expr
  | EqualityScheme of lreference
...
  | VernacScheme of (lident * scheme) list



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9860 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/xlate.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index 2abdcaa19c..c16b5215ac 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1934,11 +1934,13 @@ let rec xlate_vernac =
 	  (CT_cofix_rec_list (strip_mutcorec lm, List.map strip_mutcorec lmi))
    | VernacScheme [] -> xlate_error "induction scheme"
    | VernacScheme (lm :: lmi) ->
-      let strip_ind ((_,id), depstr, inde, sort) =
+      let strip_ind = function
+      | ((_,id), InductionScheme (depstr, inde, sort)) ->
            CT_scheme_spec
             (xlate_ident id, xlate_dep depstr, 
 	    CT_coerce_ID_to_FORMULA (loc_qualid_to_ct_ID inde),
-	     xlate_sort sort) in
+	     xlate_sort sort)
+      | ((_,id), EqualityScheme _) -> xlate_error "TODO: Scheme Equality" in
         CT_ind_scheme
 	  (CT_scheme_spec_list (strip_ind lm, List.map strip_ind lmi))
    | VernacCombinedScheme _ -> xlate_error "TODO: Combined Scheme"
-- 
cgit v1.2.3