src/Sequents/Modal0.thy
author wenzelm
Sun Sep 18 15:20:08 2005 +0200 (2005-09-18)
changeset 17481 75166ebb619b
parent 14765 bafb24c150c1
child 21426 87ac12bed1ab
permissions -rw-r--r--
converted to Isar theory format;
wenzelm@17481
     1
(*  Title:      Sequents/Modal0.thy
paulson@2073
     2
    ID:         $Id$
paulson@2073
     3
    Author:     Martin Coen
paulson@2073
     4
    Copyright   1991  University of Cambridge
paulson@2073
     5
*)
paulson@2073
     6
wenzelm@17481
     7
theory Modal0
wenzelm@17481
     8
imports LK0
wenzelm@17481
     9
uses "modal.ML"
wenzelm@17481
    10
begin
paulson@2073
    11
paulson@2073
    12
consts
paulson@2073
    13
  box           :: "o=>o"       ("[]_" [50] 50)
paulson@2073
    14
  dia           :: "o=>o"       ("<>_" [50] 50)
wenzelm@17481
    15
  "--<"         :: "[o,o]=>o"   (infixr 25)
wenzelm@17481
    16
  ">-<"         :: "[o,o]=>o"   (infixr 25)
wenzelm@17481
    17
  Lstar         :: "two_seqi"
wenzelm@17481
    18
  Rstar         :: "two_seqi"
wenzelm@14765
    19
wenzelm@14765
    20
syntax
paulson@2073
    21
  "@Lstar"      :: "two_seqe"   ("(_)|L>(_)" [6,6] 5)
paulson@2073
    22
  "@Rstar"      :: "two_seqe"   ("(_)|R>(_)" [6,6] 5)
paulson@2073
    23
wenzelm@17481
    24
ML {*
paulson@2073
    25
  val Lstar = "Lstar";
paulson@2073
    26
  val Rstar = "Rstar";
paulson@2073
    27
  val SLstar = "@Lstar";
paulson@2073
    28
  val SRstar = "@Rstar";
paulson@2073
    29
wenzelm@17481
    30
  fun star_tr c [s1,s2] = Const(c,dummyT)$ seq_tr s1$ seq_tr s2;
wenzelm@17481
    31
  fun star_tr' c [s1,s2] = Const(c,dummyT) $ seq_tr' s1 $ seq_tr' s2;
wenzelm@17481
    32
*}
wenzelm@17481
    33
wenzelm@17481
    34
parse_translation {* [(SLstar,star_tr Lstar), (SRstar,star_tr Rstar)] *}
wenzelm@17481
    35
print_translation {* [(Lstar,star_tr' SLstar), (Rstar,star_tr' SRstar)] *}
wenzelm@17481
    36
wenzelm@17481
    37
defs
wenzelm@17481
    38
  strimp_def:    "P --< Q == [](P --> Q)"
wenzelm@17481
    39
  streqv_def:    "P >-< Q == (P --< Q) & (Q --< P)"
wenzelm@17481
    40
wenzelm@17481
    41
ML {* use_legacy_bindings (the_context ()) *}
wenzelm@17481
    42
wenzelm@17481
    43
end