added an intro lemma for freshness of products; set up
the simplifier so that it can deal with the compact and
long notation for freshness constraints (FIXME: it should
also be able to deal with the special case of freshness
of atoms)
structure ROOT =
struct
structure Codegen =
struct
fun lookup ((k, v) :: xs) l =
(if (k : string = l) then SOME v else lookup xs l)
| lookup [] l = NONE;
end; (*struct Codegen*)
end; (*struct ROOT*)