Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/ZF/Coind/Language.thy
author lcp
Tue, 25 Apr 1995 11:14:03 +0200
changeset 1072 0140ff702b23
parent 932 b7ab04253326
child 1401 0c439768f45c
permissions -rw-r--r--
updated version

(*  Title: 	ZF/Coind/Language.thy
    ID:         $Id$
    Author: 	Jacob Frost, Cambridge University Computer Laboratory
    Copyright   1995  University of Cambridge
*)

Language ="Datatype" + QUniv +

consts
  Const :: "i"			(* Abstract type of constants *)
  c_app :: "[i,i] => i"		(*Abstract constructor for fun application*)

rules
  constNEE  "c:Const ==> c ~= 0"
  c_appI    "[| c1:Const; c2:Const |] ==> c_app(c1,c2):Const"


consts
  Exp   :: "i"			(* Datatype of expressions *)
  ExVar :: "i"			(* Abstract type of variables *)
datatype <= "univ(Const Un ExVar)"
  "Exp" = e_const("c:Const")
        | e_var("x:ExVar")
        | e_fn("x:ExVar","e:Exp")
        | e_fix("x1:ExVar","x2:ExVar","e:Exp")
        | e_app("e1:Exp","e2:Exp")

end
isabelle