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 ### (* METASENV after disambiguation  *)
   6
   7 ### (* TERM after disambiguation      *)
   8
   9 <[x:nat]nat>Cases O of
  10  O => O
  11  S => [x:nat](S (S x))
  12 end
  13 ### (* TYPE_OF the disambiguated term *)
  14 ([x:nat]nat O)
  15 ### (* REDUCED disambiguated term     *)
  16 O