Cyclotomic_square.Make_F4
module F2 : Intf.S_with_primitive_element
val cyclotomic_square : (F2.t * F2.t) -> (F2.t * F2.t) F2.Impl.Checked.t