fact: Definition R2 (sc : square) : square := tnth [tuple c2; c3; c0; c1] sc.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq div) mathcomp(choice fintype tuple finfun bigop finset fingroup) mathcomp(action perm primitive_action)