ocaml 3.09 transition

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

diff --git a/helm/gTopLevel/tests/match02.cic.test b/helm/gTopLevel/tests/match02.cic.test
index c265102742d4435892e0cf49f5d142a599589071..08a583805b63fa8cd05bd5709678a067e5bea9df 100644 (file)
--- a/helm/gTopLevel/tests/match02.cic.test
+++ b/helm/gTopLevel/tests/match02.cic.test
@@ -2,6 +2,14 @@
 match (le_S 0 0 (le_n 0)): le with
 [ le_n \Rightarrow (le_S 0 0 (le_n 0))
 | (le_S x y) \Rightarrow (le_S 0 (S x) (le_S 0 x y)) ]
+###### INTERPRETATION NUMBER 1 ######
+### (* disambiguation environment  *)
+alias id S = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)
+alias id le = cic:/Coq/Init/Peano/le.ind#xpointer(1/1)
+alias id le_S = cic:/Coq/Init/Peano/le.ind#xpointer(1/1/2)
+alias id le_n = cic:/Coq/Init/Peano/le.ind#xpointer(1/1/1)
+alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
+alias num (instance 0) = "natural number"
 ### (* METASENV after disambiguation  *)
 
 ### (* TERM after disambiguation      *)