From 8e92ee787e7d1fd48cae1eccf67a9b05e739743e Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Aug 2001 14:42:22 +0000
Subject: Parsing

- Typage renforcé dans les grammaires (distinction des vars et des metavars)
- Disparition de SLAM au profit de ABSTRACT
- Paths primitifs dans les quotations (syntaxe concrète à base de .)
- Mise en place de identifier dès le type ast
- Protection de identifier contre les effets de bord via un String.copy
- Utilisation de module_ident (= identifier) dans les dir_path (au
  lieu de string)

Table des noms qualifiés

- Remplacement de la table de visibilité par une table qui ne cache
  plus les noms de modules et sections mais seulement les noms des
  constantes (e.g. Require A. ne cachera plus le contenu d'un éventuel
  module A déjà existant : seuls les noms de constructions de l'ancien
  A qui existent aussi dans le nouveau A seront cachés)
- Renoncement à la possibilité d'accéder les formes non déchargées des
  constantes définies à l'intérieur de sections et simplification
  connexes (suppression de END-SECTION, une seule table de noms qui ne
  survit pas au discharge)
- Utilisation de noms longs pour les modules, de noms qualifiés pour
  Require and co, tests de cohérence; pour être cohérent avec la non
  survie des tables de noms à la sortie des section, les require à
  l'intérieur d'une section eux aussi sont refaits à la fermeture de la
  section


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1889 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/ring/Setoid_ring_normalize.v | 2 ++
 contrib/ring/quote.ml                | 2 +-
 contrib/ring/ring.ml                 | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'contrib/ring')

diff --git a/contrib/ring/Setoid_ring_normalize.v b/contrib/ring/Setoid_ring_normalize.v
index 04e2aa16ab..e49be32727 100644
--- a/contrib/ring/Setoid_ring_normalize.v
+++ b/contrib/ring/Setoid_ring_normalize.v
@@ -456,6 +456,8 @@ Proof.
   NewDestruct l;Trivial.
 Save.
 
+(* Hints Resolve ivl_aux_ok ics_aux_ok interp_m_ok. *)
+
 Lemma canonical_sum_merge_ok : (x,y:canonical_sum)
   (Aequiv (interp_cs (canonical_sum_merge x y))
   (Aplus (interp_cs x) (interp_cs y))).
diff --git a/contrib/ring/quote.ml b/contrib/ring/quote.ml
index 7908af7ecd..10ca06b78e 100644
--- a/contrib/ring/quote.ml
+++ b/contrib/ring/quote.ml
@@ -120,7 +120,7 @@ open Proof_type
   the constants are loaded in the environment *)
 
 let constant dir s =
-  let dir = "Coq"::"ring"::dir in
+  let dir = make_dirpath (List.map id_of_string ("Coq"::"ring"::dir)) in
   let id = id_of_string s in
   try 
     Declare.global_reference_in_absolute_module dir id
diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml
index fad760cba8..720c5a862f 100644
--- a/contrib/ring/ring.ml
+++ b/contrib/ring/ring.ml
@@ -34,7 +34,7 @@ let mt_evd = Evd.empty
 let constr_of com = Astterm.interp_constr mt_evd (Global.env()) com
 
 let constant dir s =
-  let dir = "Coq"::dir in
+  let dir = make_dirpath (List.map id_of_string ("Coq"::dir)) in
   let id = id_of_string s in
   try 
     Declare.global_reference_in_absolute_module dir id
-- 
cgit v1.2.3