Haskell Equational Reasoning Model-to-Implementation Tunnel