1use crate::fields::{fp2::Fp2Var, quadratic_extension::*};
 2use ark_ff::fields::{Fp4ConfigWrapper, QuadExtConfig};
 3use ark_ff::Fp4Config;
 4
 5/// A quartic extension field constructed as the tower of a
 6/// quadratic extension over a quadratic extension field.
 7/// This is the R1CS equivalent of `ark_ff::Fp4<P>`.
 8pub type Fp4Var<P> = QuadExtVar<Fp2Var<<P as Fp4Config>::Fp2Config>, Fp4ConfigWrapper<P>>;
 9
10impl<P: Fp4Config> QuadExtVarConfig<Fp2Var<P::Fp2Config>> for Fp4ConfigWrapper<P> {
11    fn mul_base_field_var_by_frob_coeff(fe: &mut Fp2Var<P::Fp2Config>, power: usize) {
12        fe.c0 *= Self::FROBENIUS_COEFF_C1[power % Self::DEGREE_OVER_BASE_PRIME_FIELD];
13        fe.c1 *= Self::FROBENIUS_COEFF_C1[power % Self::DEGREE_OVER_BASE_PRIME_FIELD];
14    }
15}