Admin/Benchmarks/HOL-datatype/SML.thy
author huffman
Fri, 13 Mar 2009 07:35:18 -0700
changeset 30506 105ad9a68e51
parent 16417 9bc16273c2d4
child 33695 bec342db1bf4
permissions -rw-r--r--
fix typed print translation for CARD('a)

(*  Title:      Admin/Benchmarks/HOL-datatype/SML.thy
    ID:         $Id$
*)

theory SML imports Main begin

(* ------------------------------------------------------------------------- *)
(* Example from Myra: part of the syntax of SML.                             *)
(* ------------------------------------------------------------------------- *)

datatype
  string = EMPTY_STRING | CONS_STRING nat string

datatype
   strid = STRID string

datatype
   var = VAR string

datatype
   con = CON string

datatype
   scon = SCINT nat | SCSTR string

datatype
   excon = EXCON string

datatype
   label = LABEL string

datatype
  'a nonemptylist = Head_and_tail 'a "'a list"

datatype
  'a long = BASE 'a | QUALIFIED strid "'a long"

datatype
   atpat_e = WILDCARDatpat_e
           | SCONatpat_e scon
           | VARatpat_e var
           | CONatpat_e "con long"
           | EXCONatpat_e "excon long"
           | RECORDatpat_e "patrow_e option"
           | PARatpat_e pat_e
and
   patrow_e = DOTDOTDOT_e
            | PATROW_e label pat_e "patrow_e option"
and
   pat_e = ATPATpat_e atpat_e
         | CONpat_e "con long" atpat_e
         | EXCONpat_e "excon long" atpat_e
         | LAYEREDpat_e var pat_e
and
   conbind_e = CONBIND_e con "conbind_e option"
and
   datbind_e = DATBIND_e conbind_e "datbind_e option"
and
   exbind_e = EXBIND1_e excon "exbind_e option"
            | EXBIND2_e excon "excon long" "exbind_e option"
and
   atexp_e = SCONatexp_e scon
           | VARatexp_e "var long"
           | CONatexp_e "con long"
           | EXCONatexp_e "excon long"
           | RECORDatexp_e "exprow_e option"
           | LETatexp_e dec_e exp_e
           | PARatexp_e exp_e
and
   exprow_e = EXPROW_e label exp_e "exprow_e option"
and
   exp_e = ATEXPexp_e atexp_e
         | APPexp_e exp_e atexp_e
         | HANDLEexp_e exp_e match_e
         | RAISEexp_e exp_e
         | FNexp_e match_e
and
   match_e = MATCH_e mrule_e "match_e option"
and
   mrule_e = MRULE_e pat_e exp_e
and
   dec_e = VALdec_e valbind_e
         | DATATYPEdec_e datbind_e
         | ABSTYPEdec_e datbind_e dec_e
         | EXCEPTdec_e exbind_e
         | LOCALdec_e dec_e dec_e
         | OPENdec_e "strid long nonemptylist"
         | EMPTYdec_e
         | SEQdec_e dec_e dec_e
and
   valbind_e = PLAINvalbind_e pat_e exp_e "valbind_e option"
             | RECvalbind_e valbind_e

end