more abstract datatype stamp, which avoids pointless allocation of mutable cells;
(*
To update:
cp /home/lcp/isabelle/Repos/HOL/Auth/{Message.thy,Message_lemmas.ML,Event.thy,Event_lemmas.ML,Public.thy,Public_lemmas.ML,NS_Public.thy} .
*)
use_thy "NS_Public";