ocaml 3.09 transition

[helm.git] / helm / gTopLevel / tests / match04.cic.test

diff --git a/helm/gTopLevel/tests/match04.cic.test b/helm/gTopLevel/tests/match04.cic.test
index 280bfbf5d26549be58b3c13f077c0aaed9788048..8befe4c3dbbbbf93dfaffa16a5a0b0e41b9c7a93 100644 (file)
--- a/helm/gTopLevel/tests/match04.cic.test
+++ b/helm/gTopLevel/tests/match04.cic.test
@@ -2,6 +2,11 @@
 match O:nat with
 [ O \Rightarrow O
 | (S x) \Rightarrow (S (S x)) ]
+###### INTERPRETATION NUMBER 1 ######
+### (* disambiguation environment  *)
+alias id O = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)
+alias id S = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)
+alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
 ### (* METASENV after disambiguation  *)
 
 ### (* TERM after disambiguation      *)