add comment

This commit is contained in:
Evgeny Poberezkin 2020-05-09 13:28:05 +01:00
parent a796215de2
commit 7dce45ea2a

View File

@ -97,9 +97,7 @@ data instance (<==|) (rs <==> bs) ss :: Type where
-> Sing ss
-> rs <==> bs <==| ss
st1 :: 'New <==> 'New
st1 = SNew :<==> SNew
-- recipient <==> broker <==| sender
st2 :: 'Pending <==> 'New <==| 'Confirmed
st2 = SPending :<==> SNew :<==| SConfirmed