src/Sequents/S43.ML
changeset 17481 75166ebb619b
parent 2073 fb0655539d05
--- a/src/Sequents/S43.ML	Sun Sep 18 14:25:48 2005 +0200
+++ b/src/Sequents/S43.ML	Sun Sep 18 15:20:08 2005 +0200
@@ -2,11 +2,9 @@
     ID:         $Id$
     Author:     Martin Coen
     Copyright   1991  University of Cambridge
-
-This implements Rajeev Gore's sequent calculus for S43.
 *)
 
-local open Modal0_rls S43
+local open Modal0_rls
 in structure MP_Rule : MODAL_PROVER_RULE =
    struct
     val rewrite_rls = rewrite_rls
@@ -16,4 +14,4 @@
     val aside_rls   = [lstar0,lstar1,lstar2,rstar0,rstar1,rstar2,S43pi0,S43pi1,S43pi2]
    end;
 end;
-structure S43_Prover = Modal_ProverFun(MP_Rule);  
+structure S43_Prover = Modal_ProverFun(MP_Rule);