| author | wenzelm | 
| Mon, 01 May 2006 17:05:11 +0200 | |
| changeset 19523 | 0531e5abf680 | 
| parent 17481 | 75166ebb619b | 
| child 21426 | 87ac12bed1ab | 
| permissions | -rw-r--r-- | 
| 17481 | 1  | 
(* Title: Modal/S4.thy  | 
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
2  | 
ID: $Id$  | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
3  | 
Author: Martin Coen  | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
4  | 
Copyright 1991 University of Cambridge  | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
5  | 
*)  | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
6  | 
|
| 17481 | 7  | 
theory S4  | 
8  | 
imports Modal0  | 
|
9  | 
begin  | 
|
10  | 
||
11  | 
axioms  | 
|
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
12  | 
(* Definition of the star operation using a set of Horn clauses *)  | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
13  | 
(* For system S4:  gamma * == {[]P | []P : gamma}               *)
 | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
14  | 
(*                 delta * == {<>P | <>P : delta}               *)
 | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
15  | 
|
| 17481 | 16  | 
lstar0: "|L>"  | 
17  | 
lstar1: "$G |L> $H ==> []P, $G |L> []P, $H"  | 
|
18  | 
lstar2: "$G |L> $H ==> P, $G |L> $H"  | 
|
19  | 
rstar0: "|R>"  | 
|
20  | 
rstar1: "$G |R> $H ==> <>P, $G |R> <>P, $H"  | 
|
21  | 
rstar2: "$G |R> $H ==> P, $G |R> $H"  | 
|
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
22  | 
|
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
23  | 
(* Rules for [] and <> *)  | 
| 
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
24  | 
|
| 17481 | 25  | 
boxR:  | 
26  | 
"[| $E |L> $E'; $F |R> $F'; $G |R> $G';  | 
|
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
27  | 
$E' |- $F', P, $G'|] ==> $E |- $F, []P, $G"  | 
| 17481 | 28  | 
boxL: "$E,P,$F,[]P |- $G ==> $E, []P, $F |- $G"  | 
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
29  | 
|
| 17481 | 30  | 
diaR: "$E |- $F,P,$G,<>P ==> $E |- $F, <>P, $G"  | 
31  | 
diaL:  | 
|
32  | 
"[| $E |L> $E'; $F |L> $F'; $G |R> $G';  | 
|
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
33  | 
$E', P, $F' |- $G'|] ==> $E, <>P, $F |- $G"  | 
| 17481 | 34  | 
|
35  | 
ML {* use_legacy_bindings (the_context ()) *}
 | 
|
36  | 
||
| 
2073
 
fb0655539d05
New unified treatment of sequent calculi by Sara Kalvala
 
paulson 
parents:  
diff
changeset
 | 
37  | 
end  |