more uniform naming scheme for finite cartesian product type and related theorems
(*
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";