fact: Definition u_ops := {| ob := unit; mor n m := u_lattice_ops; dot n m p := @e_dot _ _ _ _ _ _; one n := e_one _; itr n := @e_itr _ _ _ _; str n := @e_str _ _ _ _; cnv n m := @e_cnv _ _ _ _ _; ldv n m p := @e_ldv _ _ _ _ _ _; rdv n m p := @e_rdv _ _ _ _ _ _ |}.
imports: kleene syntax