src/Tools/Haskell/Term.hs
author wenzelm
Mon, 05 Nov 2018 17:06:50 +0100
changeset 69240 16ca270090b6
child 69280 e1d01b351724
permissions -rw-r--r--
more Haskell operations; tuned;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
69240
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     1
{- generated by Isabelle -}
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     2
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     3
{-  Title:      Tools/Haskell/Term.hs
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     4
    Author:     Makarius
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     5
    LICENSE:    BSD 3-clause (Isabelle)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     6
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     7
Lambda terms, types, sorts.
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     8
-}
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
     9
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    10
module Isabelle.Term (
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    11
  Indexname,
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    12
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    13
  Sort, dummyS,
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    14
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    15
  Typ(..), dummyT, Term(..))
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    16
where
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    17
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    18
type Indexname = (String, Int)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    19
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    20
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    21
type Sort = [String]
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    22
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    23
dummyS :: Sort
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    24
dummyS = [""]
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    25
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    26
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    27
data Typ =
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    28
    Type (String, [Typ])
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    29
  | TFree (String, Sort)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    30
  | TVar (Indexname, Sort)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    31
  deriving Show
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    32
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    33
dummyT :: Typ
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    34
dummyT = Type ("dummy", [])
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    35
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    36
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    37
data Term =
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    38
    Const (String, Typ)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    39
  | Free (String, Typ)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    40
  | Var (Indexname, Typ)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    41
  | Bound Int
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    42
  | Abs (String, Typ, Term)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    43
  | App (Term, Term)
16ca270090b6 more Haskell operations;
wenzelm
parents:
diff changeset
    44
  deriving Show