formalisation of contract equivalence; proved equivalence “move Transl through CheckWithin”