fact: Definition Eta : FId ~> G \O F := [NEq G0 \O (G1 \O F1) \O F0 , G \O F] \v (NId G0 \h eta1 \h NId F0) \v [NEq G0 \O F0 , G0 \O FId \O F0] \v eta0.
imports: mathcomp(all_ssreflect) mathcomp(boolp) monae_lib HB(structures)