|- !a P. a IN ALPHA P ==> (ALPHA (a --> P) = ALPHA P) /\ (TRACES (a --> P) = {[]} UNION {CONS a t | t IN TRACES P})
|- !a P. a IN ALPHA P ==> IS_PROCESS (ALPHA P,{[]} UNION {CONS a t | t IN TRACES P})
|- !P a. a IN ALPHA P ==> (ALPHA (a --> P) = ALPHA P)
|- !P a. a IN ALPHA P ==> (TRACES (a --> P) = {[]} UNION {CONS a t | t IN TRACES P})