#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Examples.Basics.ProofTests:f4 from sbv-4.4";

double f_if(float x, float y) {
        float r52065 = x;
        float r52066 = r52065 * r52065;
        float r52067 = 2.0;
        float r52068 = r52065 * r52067;
        float r52069 = y;
        float r52070 = r52068 * r52069;
        float r52071 = r52066 + r52070;
        float r52072 = r52069 * r52069;
        float r52073 = r52071 + r52072;
        return r52073;
}

double f_id(double x, double y) {
        double r52074 = x;
        double r52075 = r52074 * r52074;
        double r52076 = 2.0;
        double r52077 = r52074 * r52076;
        double r52078 = y;
        double r52079 = r52077 * r52078;
        double r52080 = r52075 + r52079;
        double r52081 = r52078 * r52078;
        double r52082 = r52080 + r52081;
        return r52082;
}


double f_of(float x, float y) {
        float r52083 = x;
        float r52084 = r52083 * r52083;
        float r52085 = 2.0;
        float r52086 = r52083 * r52085;
        float r52087 = y;
        float r52088 = r52086 * r52087;
        float r52089 = r52084 + r52088;
        float r52090 = r52087 * r52087;
        float r52091 = r52089 + r52090;
        return r52091;
}

double f_od(double x, double y) {
        double r52092 = x;
        double r52093 = r52092 * r52092;
        double r52094 = 2.0;
        double r52095 = r52092 * r52094;
        double r52096 = y;
        double r52097 = r52095 * r52096;
        double r52098 = r52093 + r52097;
        double r52099 = r52096 * r52096;
        double r52100 = r52098 + r52099;
        return r52100;
}

void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) {
        mpfr_fmod(r, n, d, rmd);
        if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd);
}


static mpfr_t r52101, r52102, r52103, r52104, r52105, r52106, r52107, r52108, r52109;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r52101);
        mpfr_init(r52102);
        mpfr_init_set_str(r52103, "2.0", 10, MPFR_RNDN);
        mpfr_init(r52104);
        mpfr_init(r52105);
        mpfr_init(r52106);
        mpfr_init(r52107);
        mpfr_init(r52108);
        mpfr_init(r52109);
}

double f_im(double x, double y) {
        mpfr_set_d(r52101, x, MPFR_RNDN);
        mpfr_mul(r52102, r52101, r52101, MPFR_RNDN);
        ;
        mpfr_mul(r52104, r52101, r52103, MPFR_RNDN);
        mpfr_set_d(r52105, y, MPFR_RNDN);
        mpfr_mul(r52106, r52104, r52105, MPFR_RNDN);
        mpfr_add(r52107, r52102, r52106, MPFR_RNDN);
        mpfr_mul(r52108, r52105, r52105, MPFR_RNDN);
        mpfr_add(r52109, r52107, r52108, MPFR_RNDN);
        return mpfr_get_d(r52109, MPFR_RNDN);
}

static mpfr_t r52110, r52111, r52112, r52113, r52114, r52115, r52116, r52117, r52118;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r52110);
        mpfr_init(r52111);
        mpfr_init_set_str(r52112, "2.0", 10, MPFR_RNDN);
        mpfr_init(r52113);
        mpfr_init(r52114);
        mpfr_init(r52115);
        mpfr_init(r52116);
        mpfr_init(r52117);
        mpfr_init(r52118);
}

double f_fm(double x, double y) {
        mpfr_set_d(r52110, x, MPFR_RNDN);
        mpfr_mul(r52111, r52110, r52110, MPFR_RNDN);
        ;
        mpfr_mul(r52113, r52110, r52112, MPFR_RNDN);
        mpfr_set_d(r52114, y, MPFR_RNDN);
        mpfr_mul(r52115, r52113, r52114, MPFR_RNDN);
        mpfr_add(r52116, r52111, r52115, MPFR_RNDN);
        mpfr_mul(r52117, r52114, r52114, MPFR_RNDN);
        mpfr_add(r52118, r52116, r52117, MPFR_RNDN);
        return mpfr_get_d(r52118, MPFR_RNDN);
}

static mpfr_t r52119, r52120, r52121, r52122, r52123, r52124, r52125, r52126, r52127;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r52119);
        mpfr_init(r52120);
        mpfr_init_set_str(r52121, "2.0", 10, MPFR_RNDN);
        mpfr_init(r52122);
        mpfr_init(r52123);
        mpfr_init(r52124);
        mpfr_init(r52125);
        mpfr_init(r52126);
        mpfr_init(r52127);
}

double f_dm(double x, double y) {
        mpfr_set_d(r52119, x, MPFR_RNDN);
        mpfr_mul(r52120, r52119, r52119, MPFR_RNDN);
        ;
        mpfr_mul(r52122, r52119, r52121, MPFR_RNDN);
        mpfr_set_d(r52123, y, MPFR_RNDN);
        mpfr_mul(r52124, r52122, r52123, MPFR_RNDN);
        mpfr_add(r52125, r52120, r52124, MPFR_RNDN);
        mpfr_mul(r52126, r52123, r52123, MPFR_RNDN);
        mpfr_add(r52127, r52125, r52126, MPFR_RNDN);
        return mpfr_get_d(r52127, MPFR_RNDN);
}