- Added keylevels to symbols. This is to help pruning the proofs, for

terms and patterns that do not originate on regular nodes.

src/compiler.c

@@ -140,6 +140,9 @@ compile (Tac tc, int maxrunsset)
   /* process the tac */
   tacProcess (tac_root);
 
+  /* Clean up keylevels */
+  symbol_fix_keylevels ();
+
   /* cleanup */
   levelDone ();
 }
@@ -402,6 +405,14 @@ commEvent (int event, Tac tc)
       msg = tacTerm (tacTuple ((trip->next->next)));
       cl = NULL;
 
+      if (event == SEND)
+	{
+	  /* set keylevels based on send events */
+	  term_set_keylevels (fromrole);
+	  term_set_keylevels (torole);
+	  term_set_keylevels (msg);
+	}
+
       break;
     case CLAIM:
       /* now parse tuple info */