helm/gTopLevel/tests/match04.cic.test

   1 [\lambda x:nat. nat]
   2 match O:nat with
   3 [ O \Rightarrow O
   4 | (S x) \Rightarrow (S (S x)) ]
   5 ###### INTERPRETATION NUMBER 1 ######
   6 ### (* disambiguation environment  *)
   7 alias id O = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)
   8 alias id S = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)
   9 alias id nat = cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)
  10 ### (* METASENV after disambiguation  *)
  11
  12 ### (* TERM after disambiguation      *)
  13
  14 <[x:nat]nat>Cases O of
  15  O => O
  16  S => [x:nat](S (S x))
  17 end
  18 ### (* TYPE_OF the disambiguated term *)
  19 ([x:nat]nat O)
  20 ### (* REDUCED disambiguated term     *)
  21 O