--- a/IOA/example/Receiver.ML	Fri Nov 11 10:35:03 1994 +0100
+++ b/IOA/example/Receiver.ML	Mon Nov 21 17:50:34 1994 +0100
@@ -18,7 +18,7 @@
   by(simp_tac (action_ss addsimps 
                (Receiver.receiver_asig_def :: actions_def :: 
                 asig_projections @ set_lemmas)) 1);
-val in_receiver_asig = result();
+qed "in_receiver_asig";
 
 val receiver_projections = 
    [Receiver.rq_def,