static void fi_out_info(FILE *out, field_ptr f) { field_ptr fbase = f->data; fprintf(out, "extension x^2 + 1, base field: "); field_out_info(out, fbase); }
static void gt_out_info(FILE *out, field_ptr f) { gmp_fprintf(out, "roots of unity, order %Zd, ", f->order); field_out_info(out, f->data); }
static void fq_out_info(FILE *out, field_ptr f) { field_ptr fbase = f->data; element_fprintf(out, "extension x^2 + %B, base field: ", fq_nqr(f)); field_out_info(out, fbase); }
static void v_field_out(FILE* stream, val_ptr v) { field_out_info(stream, v->field); }