src/HOL/IOA/Asig.thy
author nipkow
Thu Oct 12 18:38:23 2000 +0200 (2000-10-12)
changeset 10212 33fe2d701ddd
parent 4530 ac1821645636
child 11482 ec2c382ff4f0
permissions -rw-r--r--
*** empty log message ***
oheimb@4530
     1
(*  Title:      HOL/IOA/Asig.thy
mueller@3078
     2
    ID:         $Id$
mueller@3078
     3
    Author:     Tobias Nipkow & Konrad Slind
mueller@3078
     4
    Copyright   1994  TU Muenchen
mueller@3078
     5
mueller@3078
     6
Action signatures
mueller@3078
     7
*)
mueller@3078
     8
nipkow@10212
     9
Asig = Product_Type +
mueller@3078
    10
mueller@3078
    11
types 
mueller@3078
    12
mueller@3078
    13
'a signature = "('a set * 'a set * 'a set)"
mueller@3078
    14
mueller@3078
    15
consts
mueller@3078
    16
  actions,inputs,outputs,internals,externals
mueller@3078
    17
                ::"'action signature => 'action set"
mueller@3078
    18
  is_asig       ::"'action signature => bool"
mueller@3078
    19
  mk_ext_asig   ::"'action signature => 'action signature"
mueller@3078
    20
mueller@3078
    21
mueller@3078
    22
defs
mueller@3078
    23
mueller@3078
    24
asig_inputs_def    "inputs == fst"
mueller@3078
    25
asig_outputs_def   "outputs == (fst o snd)"
mueller@3078
    26
asig_internals_def "internals == (snd o snd)"
mueller@3078
    27
mueller@3078
    28
actions_def
mueller@3078
    29
   "actions(asig) == (inputs(asig) Un outputs(asig) Un internals(asig))"
mueller@3078
    30
mueller@3078
    31
externals_def
mueller@3078
    32
   "externals(asig) == (inputs(asig) Un outputs(asig))"
mueller@3078
    33
mueller@3078
    34
is_asig_def
mueller@3078
    35
  "is_asig(triple) ==            
mueller@3078
    36
      ((inputs(triple) Int outputs(triple) = {})    & 
mueller@3078
    37
       (outputs(triple) Int internals(triple) = {}) & 
mueller@3078
    38
       (inputs(triple) Int internals(triple) = {}))"
mueller@3078
    39
mueller@3078
    40
mueller@3078
    41
mk_ext_asig_def
mueller@3078
    42
  "mk_ext_asig(triple) == (inputs(triple), outputs(triple), {})"
mueller@3078
    43
mueller@3078
    44
mueller@3078
    45
end