Shallow embedding of Protocols using Agda dependent types