CATS Categorical model for Floyd-Hoare logic?