src/HOL/IOA/meta_theory/Asig.thy
author paulson
Mon Oct 07 10:28:44 1996 +0200 (1996-10-07)
changeset 2056 93c093620c28
parent 2018 bcd69cc47cf0
permissions -rw-r--r--
Removed commands made redundant by new one-point rules
clasohm@966
     1
(*  Title:      HOL/IOA/meta_theory/Asig.thy
clasohm@966
     2
    ID:         $Id$
clasohm@966
     3
    Author:     Tobias Nipkow & Konrad Slind
clasohm@966
     4
    Copyright   1994  TU Muenchen
clasohm@966
     5
clasohm@966
     6
Action signatures
clasohm@966
     7
*)
clasohm@966
     8
nipkow@2018
     9
Asig = Prod +
clasohm@966
    10
clasohm@966
    11
types 
clasohm@966
    12
clasohm@966
    13
'a signature = "('a set * 'a set * 'a set)"
clasohm@966
    14
clasohm@966
    15
consts
clasohm@966
    16
  actions,inputs,outputs,internals,externals
clasohm@966
    17
                ::"'action signature => 'action set"
clasohm@966
    18
  is_asig       ::"'action signature => bool"
clasohm@966
    19
  mk_ext_asig   ::"'action signature => 'action signature"
clasohm@966
    20
clasohm@966
    21
clasohm@966
    22
defs
clasohm@966
    23
clasohm@966
    24
asig_inputs_def    "inputs == fst"
clasohm@966
    25
asig_outputs_def   "outputs == (fst o snd)"
clasohm@966
    26
asig_internals_def "internals == (snd o snd)"
clasohm@966
    27
clasohm@966
    28
actions_def
clasohm@966
    29
   "actions(asig) == (inputs(asig) Un outputs(asig) Un internals(asig))"
clasohm@966
    30
clasohm@966
    31
externals_def
clasohm@966
    32
   "externals(asig) == (inputs(asig) Un outputs(asig))"
clasohm@966
    33
clasohm@966
    34
is_asig_def
clasohm@1151
    35
  "is_asig(triple) ==            
clasohm@1151
    36
      ((inputs(triple) Int outputs(triple) = {})    & 
clasohm@1151
    37
       (outputs(triple) Int internals(triple) = {}) & 
clasohm@1151
    38
       (inputs(triple) Int internals(triple) = {}))"
clasohm@966
    39
clasohm@966
    40
clasohm@966
    41
mk_ext_asig_def
clasohm@972
    42
  "mk_ext_asig(triple) == (inputs(triple), outputs(triple), {})"
clasohm@966
    43
clasohm@966
    44
clasohm@966
    45
end