Bls.Primitive
module Fr : sig ... end
module G1 : sig ... end
module G2 : sig ... end
val pairing_check : (G1.t * G2.t) list -> bool