catala/french_law/ocaml/law_source/aides_logement_api_web.ml

(** This file has been generated by the Catala compiler, do not edit! *)

open Runtime_ocaml.Runtime
open Runtime_jsoo.Runtime
open Js_of_ocaml
open Aides_logement

[@@@ocaml.warning "-4-26-27-32-41-42"]

(* Generated API *)

class type type_pret =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "D331_32"
        - "D331_63_64"
        - "D331_59_8"
        - "D331_76_1"
        - "Autre" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let type_pret_to_jsoo : TypePret.t -> type_pret Js.t
  = function
  | D331_32 arg -> object%js
      val kind = Js.string "D331_32"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | D331_63_64 arg -> object%js
      val kind = Js.string "D331_63_64"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | D331_59_8 arg -> object%js
      val kind = Js.string "D331_59_8"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | D331_76_1 arg -> object%js
      val kind = Js.string "D331_76_1"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Autre arg -> object%js
      val kind = Js.string "Autre"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let type_pret_of_jsoo (type_pret : type_pret Js.t) : TypePret.t =
  match type_pret##.kind |> Js.to_string with
  | "D331_32" -> TypePret.D331_32 ()
  | "D331_63_64" -> TypePret.D331_63_64 ()
  | "D331_59_8" -> TypePret.D331_59_8 ()
  | "D331_76_1" -> TypePret.D331_76_1 ()
  | "Autre" -> TypePret.Autre ()
  | cons ->
    failwith
      (Printf.sprintf "Unexpected '%s' kind for the enumeration 'TypePret.t'"
        cons)


class type titulaire_pret =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Demandeur"
        - "VendeurQuandDemandeurAContratLocationAccession" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let titulaire_pret_to_jsoo : TitulairePret.t -> titulaire_pret Js.t
  = function
  | Demandeur arg -> object%js
      val kind = Js.string "Demandeur"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | VendeurQuandDemandeurAContratLocationAccession arg -> object%js
      val kind = Js.string "VendeurQuandDemandeurAContratLocationAccession"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let titulaire_pret_of_jsoo (titulaire_pret : titulaire_pret Js.t)
  : TitulairePret.t =
  match titulaire_pret##.kind |> Js.to_string with
  | "Demandeur" -> TitulairePret.Demandeur ()
  | "VendeurQuandDemandeurAContratLocationAccession" ->
    TitulairePret.VendeurQuandDemandeurAContratLocationAccession ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'TitulairePret.t'" cons)


class type type_travaux_logement_d832_15 =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "TravauxPourAcquisitionD832_15_1"
        - "TravauxSurLogementDejaAcquisD832_15_2"
        - "PasDeTravaux" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let type_travaux_logement_d832_15_to_jsoo
  : TypeTravauxLogementD83215.t -> type_travaux_logement_d832_15 Js.t
  = function
  | TravauxPourAcquisitionD832_15_1 arg -> object%js
      val kind = Js.string "TravauxPourAcquisitionD832_15_1"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | TravauxSurLogementDejaAcquisD832_15_2 arg -> object%js
      val kind = Js.string "TravauxSurLogementDejaAcquisD832_15_2"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | PasDeTravaux arg -> object%js
      val kind = Js.string "PasDeTravaux"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let type_travaux_logement_d832_15_of_jsoo
  (type_travaux_logement_d832_15 : type_travaux_logement_d832_15 Js.t)
  : TypeTravauxLogementD83215.t =
  match type_travaux_logement_d832_15##.kind |> Js.to_string with
  | "TravauxPourAcquisitionD832_15_1" ->
    TypeTravauxLogementD83215.TravauxPourAcquisitionD832_15_1 ()
  | "TravauxSurLogementDejaAcquisD832_15_2" ->
    TypeTravauxLogementD83215.TravauxSurLogementDejaAcquisD832_15_2 ()
  | "PasDeTravaux" -> TypeTravauxLogementD83215.PasDeTravaux ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'TypeTravauxLogementD83215.t'"
        cons)


class type type_travaux_logement_r842_5 =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "ObjectifDecenceLogement"
        - "PrevuDansListeR321_15"
        - "AgrandirOuRendreHabitableD331_63"
        - "PasDeTravaux" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let type_travaux_logement_r842_5_to_jsoo
  : TypeTravauxLogementR8425.t -> type_travaux_logement_r842_5 Js.t
  = function
  | ObjectifDecenceLogement arg -> object%js
      val kind = Js.string "ObjectifDecenceLogement"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | PrevuDansListeR321_15 arg -> object%js
      val kind = Js.string "PrevuDansListeR321_15"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AgrandirOuRendreHabitableD331_63 arg -> object%js
      val kind = Js.string "AgrandirOuRendreHabitableD331_63"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | PasDeTravaux arg -> object%js
      val kind = Js.string "PasDeTravaux"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let type_travaux_logement_r842_5_of_jsoo
  (type_travaux_logement_r842_5 : type_travaux_logement_r842_5 Js.t)
  : TypeTravauxLogementR8425.t =
  match type_travaux_logement_r842_5##.kind |> Js.to_string with
  | "ObjectifDecenceLogement" ->
    TypeTravauxLogementR8425.ObjectifDecenceLogement ()
  | "PrevuDansListeR321_15" ->
    TypeTravauxLogementR8425.PrevuDansListeR321_15 ()
  | "AgrandirOuRendreHabitableD331_63" ->
    TypeTravauxLogementR8425.AgrandirOuRendreHabitableD331_63 ()
  | "PasDeTravaux" -> TypeTravauxLogementR8425.PasDeTravaux ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'TypeTravauxLogementR8425.t'"
        cons)


class type ameliore_par_occupant =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Oui"
        - "Non" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let ameliore_par_occupant_to_jsoo
  : AmelioreParOccupant.t -> ameliore_par_occupant Js.t
  = function
  | Oui arg -> object%js
      val kind = Js.string "Oui"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Non arg -> object%js
      val kind = Js.string "Non"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let ameliore_par_occupant_of_jsoo
  (ameliore_par_occupant : ameliore_par_occupant Js.t)
  : AmelioreParOccupant.t =
  match ameliore_par_occupant##.kind |> Js.to_string with
  | "Oui" -> AmelioreParOccupant.Oui ()
  | "Non" -> AmelioreParOccupant.Non ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'AmelioreParOccupant.t'"
        cons)


class type limite_tranche =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Revenu"
        - "Infini" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let limite_tranche_to_jsoo : LimiteTranche.t -> limite_tranche Js.t
  = function
  | Revenu arg -> object%js
      val kind = Js.string "Revenu"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
    end
  | Infini arg -> object%js
      val kind = Js.string "Infini"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let limite_tranche_of_jsoo (limite_tranche : limite_tranche Js.t)
  : LimiteTranche.t =
  match limite_tranche##.kind |> Js.to_string with
  | "Revenu" ->
  LimiteTranche.Revenu (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce limite_tranche##.payload))
  | "Infini" -> LimiteTranche.Infini ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'LimiteTranche.t'" cons)


class type limite_tranche_decimal =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Revenu"
        - "Infini" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let limite_tranche_decimal_to_jsoo
  : LimiteTrancheDecimal.t -> limite_tranche_decimal Js.t
  = function
  | Revenu arg -> object%js
      val kind = Js.string "Revenu"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ decimal_to_float arg))
    end
  | Infini arg -> object%js
      val kind = Js.string "Infini"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let limite_tranche_decimal_of_jsoo
  (limite_tranche_decimal : limite_tranche_decimal Js.t)
  : LimiteTrancheDecimal.t =
  match limite_tranche_decimal##.kind |> Js.to_string with
  | "Revenu" ->
  LimiteTrancheDecimal.Revenu (decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce limite_tranche_decimal##.payload))
  | "Infini" -> LimiteTrancheDecimal.Infini ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'LimiteTrancheDecimal.t'"
        cons)


class type prestation_recue =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "AllocationsFamiliales"
        - "ComplementFamilial"
        - "AllocationJeuneEnfant"
        - "AllocationSoutienFamilial"
        - "AllocationSoutienEnfantHandicape"
        - "AllocationAdulteHandicape" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let prestation_recue_to_jsoo : PrestationRecue.t -> prestation_recue Js.t
  = function
  | AllocationsFamiliales arg -> object%js
      val kind = Js.string "AllocationsFamiliales"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ComplementFamilial arg -> object%js
      val kind = Js.string "ComplementFamilial"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationJeuneEnfant arg -> object%js
      val kind = Js.string "AllocationJeuneEnfant"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationSoutienFamilial arg -> object%js
      val kind = Js.string "AllocationSoutienFamilial"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationSoutienEnfantHandicape arg -> object%js
      val kind = Js.string "AllocationSoutienEnfantHandicape"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationAdulteHandicape arg -> object%js
      val kind = Js.string "AllocationAdulteHandicape"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let prestation_recue_of_jsoo (prestation_recue : prestation_recue Js.t)
  : PrestationRecue.t =
  match prestation_recue##.kind |> Js.to_string with
  | "AllocationsFamiliales" -> PrestationRecue.AllocationsFamiliales ()
  | "ComplementFamilial" -> PrestationRecue.ComplementFamilial ()
  | "AllocationJeuneEnfant" -> PrestationRecue.AllocationJeuneEnfant ()
  | "AllocationSoutienFamilial" ->
    PrestationRecue.AllocationSoutienFamilial ()
  | "AllocationSoutienEnfantHandicape" ->
    PrestationRecue.AllocationSoutienEnfantHandicape ()
  | "AllocationAdulteHandicape" ->
    PrestationRecue.AllocationAdulteHandicape ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'PrestationRecue.t'" cons)


class type parent_ou_autre =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "DemandeurOuConjointOuParentOuViaPartsSocietes"
        - "Autre" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let parent_ou_autre_to_jsoo : ParentOuAutre.t -> parent_ou_autre Js.t
  = function
  | DemandeurOuConjointOuParentOuViaPartsSocietes arg -> object%js
      val kind = Js.string "DemandeurOuConjointOuParentOuViaPartsSocietes"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ decimal_to_float arg))
    end
  | Autre arg -> object%js
      val kind = Js.string "Autre"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let parent_ou_autre_of_jsoo (parent_ou_autre : parent_ou_autre Js.t)
  : ParentOuAutre.t =
  match parent_ou_autre##.kind |> Js.to_string with
  | "DemandeurOuConjointOuParentOuViaPartsSocietes" ->
  ParentOuAutre.DemandeurOuConjointOuParentOuViaPartsSocietes (decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce parent_ou_autre##.payload))
  | "Autre" -> ParentOuAutre.Autre ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'ParentOuAutre.t'" cons)


class type situation_garde_alternee =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "PasDeGardeAlternee"
        - "GardeAlterneeCoefficientPriseEnCharge" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let situation_garde_alternee_to_jsoo
  : SituationGardeAlternee.t -> situation_garde_alternee Js.t
  = function
  | PasDeGardeAlternee arg -> object%js
      val kind = Js.string "PasDeGardeAlternee"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | GardeAlterneeCoefficientPriseEnCharge arg -> object%js
      val kind = Js.string "GardeAlterneeCoefficientPriseEnCharge"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ decimal_to_float arg))
    end

let situation_garde_alternee_of_jsoo
  (situation_garde_alternee : situation_garde_alternee Js.t)
  : SituationGardeAlternee.t =
  match situation_garde_alternee##.kind |> Js.to_string with
  | "PasDeGardeAlternee" -> SituationGardeAlternee.PasDeGardeAlternee ()
  | "GardeAlterneeCoefficientPriseEnCharge" ->
  SituationGardeAlternee.GardeAlterneeCoefficientPriseEnCharge (decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce situation_garde_alternee##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'SituationGardeAlternee.t'"
        cons)


class type parente =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Ascendant"
        - "Descendant"
        - "CollateralDeuxiemeTroisiemeDegre" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let parente_to_jsoo : Parente.t -> parente Js.t
  = function
  | Ascendant arg -> object%js
      val kind = Js.string "Ascendant"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Descendant arg -> object%js
      val kind = Js.string "Descendant"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | CollateralDeuxiemeTroisiemeDegre arg -> object%js
      val kind = Js.string "CollateralDeuxiemeTroisiemeDegre"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let parente_of_jsoo (parente : parente Js.t) : Parente.t =
  match parente##.kind |> Js.to_string with
  | "Ascendant" -> Parente.Ascendant ()
  | "Descendant" -> Parente.Descendant ()
  | "CollateralDeuxiemeTroisiemeDegre" ->
    Parente.CollateralDeuxiemeTroisiemeDegre ()
  | cons ->
    failwith
      (Printf.sprintf "Unexpected '%s' kind for the enumeration 'Parente.t'"
        cons)


class type date_de_naissance_ou_mois_de_grossesse =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "DateDeNaissance"
        - "AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse"
        - "ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let date_de_naissance_ou_mois_de_grossesse_to_jsoo
  : DateDeNaissanceOuMoisDeGrossesse.t -> date_de_naissance_ou_mois_de_grossesse Js.t
  = function
  | DateDeNaissance arg -> object%js
      val kind = Js.string "DateDeNaissance"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_to_jsoo arg))
    end
  | AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse arg -> object%js
      val kind = Js.string "AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse arg -> object%js
      val kind = Js.string "ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let date_de_naissance_ou_mois_de_grossesse_of_jsoo
  (date_de_naissance_ou_mois_de_grossesse
    : date_de_naissance_ou_mois_de_grossesse Js.t)
  : DateDeNaissanceOuMoisDeGrossesse.t =
  match date_de_naissance_ou_mois_de_grossesse##.kind |> Js.to_string with
  | "DateDeNaissance" ->
  DateDeNaissanceOuMoisDeGrossesse.DateDeNaissance (date_of_jsoo (Js.Unsafe.coerce date_de_naissance_ou_mois_de_grossesse##.payload))
  | "AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse" ->
    DateDeNaissanceOuMoisDeGrossesse.AvantPremierJourMoisCivilTroisiemeMoisDeGrossesse ()
  | "ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse" ->
    DateDeNaissanceOuMoisDeGrossesse.ApresPremierJourMoisCivilTroisiemeMoisDeGrossesse ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'DateDeNaissanceOuMoisDeGrossesse.t'"
        cons)


class type zone_d_habitation =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Zone1"
        - "Zone2"
        - "Zone3" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let zone_d_habitation_to_jsoo : ZoneDHabitation.t -> zone_d_habitation Js.t
  = function
  | Zone1 arg -> object%js
      val kind = Js.string "Zone1"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Zone2 arg -> object%js
      val kind = Js.string "Zone2"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Zone3 arg -> object%js
      val kind = Js.string "Zone3"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let zone_d_habitation_of_jsoo (zone_d_habitation : zone_d_habitation Js.t)
  : ZoneDHabitation.t =
  match zone_d_habitation##.kind |> Js.to_string with
  | "Zone1" -> ZoneDHabitation.Zone1 ()
  | "Zone2" -> ZoneDHabitation.Zone2 ()
  | "Zone3" -> ZoneDHabitation.Zone3 ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'ZoneDHabitation.t'" cons)


class type categorie_calcul_a_p_l =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Location"
        - "AccessionPropriete"
        - "LogementFoyer" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let categorie_calcul_a_p_l_to_jsoo
  : CategorieCalculAPL.t -> categorie_calcul_a_p_l Js.t
  = function
  | Location arg -> object%js
      val kind = Js.string "Location"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AccessionPropriete arg -> object%js
      val kind = Js.string "AccessionPropriete"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | LogementFoyer arg -> object%js
      val kind = Js.string "LogementFoyer"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let categorie_calcul_a_p_l_of_jsoo
  (categorie_calcul_a_p_l : categorie_calcul_a_p_l Js.t)
  : CategorieCalculAPL.t =
  match categorie_calcul_a_p_l##.kind |> Js.to_string with
  | "Location" -> CategorieCalculAPL.Location ()
  | "AccessionPropriete" -> CategorieCalculAPL.AccessionPropriete ()
  | "LogementFoyer" -> CategorieCalculAPL.LogementFoyer ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'CategorieCalculAPL.t'"
        cons)


class type paiement_logement_distinct_professionnel =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "OuiAvecLoyerOuCharges"
        - "Non" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let paiement_logement_distinct_professionnel_to_jsoo
  : PaiementLogementDistinctProfessionnel.t -> paiement_logement_distinct_professionnel Js.t
  = function
  | OuiAvecLoyerOuCharges arg -> object%js
      val kind = Js.string "OuiAvecLoyerOuCharges"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
    end
  | Non arg -> object%js
      val kind = Js.string "Non"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let paiement_logement_distinct_professionnel_of_jsoo
  (paiement_logement_distinct_professionnel
    : paiement_logement_distinct_professionnel Js.t)
  : PaiementLogementDistinctProfessionnel.t =
  match paiement_logement_distinct_professionnel##.kind |> Js.to_string with
  | "OuiAvecLoyerOuCharges" ->
  PaiementLogementDistinctProfessionnel.OuiAvecLoyerOuCharges (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce paiement_logement_distinct_professionnel##.payload))
  | "Non" -> PaiementLogementDistinctProfessionnel.Non ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'PaiementLogementDistinctProfessionnel.t'"
        cons)


class type versement_a =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Bailleur"
        - "Beneficiaire"
        - "EtablissementHabilite" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let versement_a_to_jsoo : VersementA.t -> versement_a Js.t
  = function
  | Bailleur arg -> object%js
      val kind = Js.string "Bailleur"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Beneficiaire arg -> object%js
      val kind = Js.string "Beneficiaire"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | EtablissementHabilite arg -> object%js
      val kind = Js.string "EtablissementHabilite"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let versement_a_of_jsoo (versement_a : versement_a Js.t) : VersementA.t =
  match versement_a##.kind |> Js.to_string with
  | "Bailleur" -> VersementA.Bailleur ()
  | "Beneficiaire" -> VersementA.Beneficiaire ()
  | "EtablissementHabilite" -> VersementA.EtablissementHabilite ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'VersementA.t'" cons)


class type depense_logement =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "TotalAnnuelEcheances"
        - "Mensualite"
        - "Loyer" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let depense_logement_to_jsoo : DepenseLogement.t -> depense_logement Js.t
  = function
  | TotalAnnuelEcheances arg -> object%js
      val kind = Js.string "TotalAnnuelEcheances"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
    end
  | Mensualite arg -> object%js
      val kind = Js.string "Mensualite"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
    end
  | Loyer arg -> object%js
      val kind = Js.string "Loyer"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (Js.number_of_float @@ money_to_float arg))
    end

let depense_logement_of_jsoo (depense_logement : depense_logement Js.t)
  : DepenseLogement.t =
  match depense_logement##.kind |> Js.to_string with
  | "TotalAnnuelEcheances" ->
  DepenseLogement.TotalAnnuelEcheances (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce depense_logement##.payload))
  | "Mensualite" ->
  DepenseLogement.Mensualite (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce depense_logement##.payload))
  | "Loyer" ->
  DepenseLogement.Loyer (money_of_decimal @@ decimal_of_float @@ Js.float_of_number (Js.Unsafe.coerce depense_logement##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'DepenseLogement.t'" cons)


class type mode_occupation_impaye =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "ImpayeLoyer"
        - "ImpayePret" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let mode_occupation_impaye_to_jsoo
  : ModeOccupationImpaye.t -> mode_occupation_impaye Js.t
  = function
  | ImpayeLoyer arg -> object%js
      val kind = Js.string "ImpayeLoyer"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ImpayePret arg -> object%js
      val kind = Js.string "ImpayePret"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let mode_occupation_impaye_of_jsoo
  (mode_occupation_impaye : mode_occupation_impaye Js.t)
  : ModeOccupationImpaye.t =
  match mode_occupation_impaye##.kind |> Js.to_string with
  | "ImpayeLoyer" -> ModeOccupationImpaye.ImpayeLoyer ()
  | "ImpayePret" -> ModeOccupationImpaye.ImpayePret ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'ModeOccupationImpaye.t'"
        cons)


class type eligibilite_allocation_logement =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "PasEligible"
        - "AllocationLogementFamiliale"
        - "AllocationLogementSociale" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let eligibilite_allocation_logement_to_jsoo
  : EligibiliteAllocationLogement.t -> eligibilite_allocation_logement Js.t
  = function
  | PasEligible arg -> object%js
      val kind = Js.string "PasEligible"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationLogementFamiliale arg -> object%js
      val kind = Js.string "AllocationLogementFamiliale"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationLogementSociale arg -> object%js
      val kind = Js.string "AllocationLogementSociale"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let eligibilite_allocation_logement_of_jsoo
  (eligibilite_allocation_logement : eligibilite_allocation_logement Js.t)
  : EligibiliteAllocationLogement.t =
  match eligibilite_allocation_logement##.kind |> Js.to_string with
  | "PasEligible" -> EligibiliteAllocationLogement.PasEligible ()
  | "AllocationLogementFamiliale" ->
    EligibiliteAllocationLogement.AllocationLogementFamiliale ()
  | "AllocationLogementSociale" ->
    EligibiliteAllocationLogement.AllocationLogementSociale ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'EligibiliteAllocationLogement.t'"
        cons)


class type type_aides_personnelle_logement =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "AidePersonnaliseeLogement"
        - "AllocationLogementFamiliale"
        - "AllocationLogementSociale" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let type_aides_personnelle_logement_to_jsoo
  : TypeAidesPersonnelleLogement.t -> type_aides_personnelle_logement Js.t
  = function
  | AidePersonnaliseeLogement arg -> object%js
      val kind = Js.string "AidePersonnaliseeLogement"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationLogementFamiliale arg -> object%js
      val kind = Js.string "AllocationLogementFamiliale"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationLogementSociale arg -> object%js
      val kind = Js.string "AllocationLogementSociale"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let type_aides_personnelle_logement_of_jsoo
  (type_aides_personnelle_logement : type_aides_personnelle_logement Js.t)
  : TypeAidesPersonnelleLogement.t =
  match type_aides_personnelle_logement##.kind |> Js.to_string with
  | "AidePersonnaliseeLogement" ->
    TypeAidesPersonnelleLogement.AidePersonnaliseeLogement ()
  | "AllocationLogementFamiliale" ->
    TypeAidesPersonnelleLogement.AllocationLogementFamiliale ()
  | "AllocationLogementSociale" ->
    TypeAidesPersonnelleLogement.AllocationLogementSociale ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'TypeAidesPersonnelleLogement.t'"
        cons)


class type situation_familiale =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Celibataire"
        - "Maries"
        - "Pacses"
        - "Concubins"
        - "CelibataireSepareDeFait"
        - "ConcubinageDontSepareDeFait" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let situation_familiale_to_jsoo
  : SituationFamiliale.t -> situation_familiale Js.t
  = function
  | Celibataire arg -> object%js
      val kind = Js.string "Celibataire"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Maries arg -> object%js
      val kind = Js.string "Maries"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_to_jsoo arg))
    end
  | Pacses arg -> object%js
      val kind = Js.string "Pacses"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Concubins arg -> object%js
      val kind = Js.string "Concubins"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | CelibataireSepareDeFait arg -> object%js
      val kind = Js.string "CelibataireSepareDeFait"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ConcubinageDontSepareDeFait arg -> object%js
      val kind = Js.string "ConcubinageDontSepareDeFait"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let situation_familiale_of_jsoo
  (situation_familiale : situation_familiale Js.t) : SituationFamiliale.t =
  match situation_familiale##.kind |> Js.to_string with
  | "Celibataire" -> SituationFamiliale.Celibataire ()
  | "Maries" ->
  SituationFamiliale.Maries (date_of_jsoo (Js.Unsafe.coerce situation_familiale##.payload))
  | "Pacses" -> SituationFamiliale.Pacses ()
  | "Concubins" -> SituationFamiliale.Concubins ()
  | "CelibataireSepareDeFait" ->
    SituationFamiliale.CelibataireSepareDeFait ()
  | "ConcubinageDontSepareDeFait" ->
    SituationFamiliale.ConcubinageDontSepareDeFait ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'SituationFamiliale.t'"
        cons)


class type prise_en_charge =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "EffectiveEtPermanente"
        - "ResidenceAlterneeAllocataireUnique"
        - "ResidenceAlterneeAllocationsPartagee" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let prise_en_charge_to_jsoo : PriseEnCharge.t -> prise_en_charge Js.t
  = function
  | EffectiveEtPermanente arg -> object%js
      val kind = Js.string "EffectiveEtPermanente"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ResidenceAlterneeAllocataireUnique arg -> object%js
      val kind = Js.string "ResidenceAlterneeAllocataireUnique"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ResidenceAlterneeAllocationsPartagee arg -> object%js
      val kind = Js.string "ResidenceAlterneeAllocationsPartagee"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let prise_en_charge_of_jsoo (prise_en_charge : prise_en_charge Js.t)
  : PriseEnCharge.t =
  match prise_en_charge##.kind |> Js.to_string with
  | "EffectiveEtPermanente" -> PriseEnCharge.EffectiveEtPermanente ()
  | "ResidenceAlterneeAllocataireUnique" ->
    PriseEnCharge.ResidenceAlterneeAllocataireUnique ()
  | "ResidenceAlterneeAllocationsPartagee" ->
    PriseEnCharge.ResidenceAlterneeAllocationsPartagee ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'PriseEnCharge.t'" cons)


class type type_logement_foyer =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "LogementPersonnesAgeesOuHandicapees"
        - "ResidenceSociale"
        - "FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995"
        - "Autre" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let type_logement_foyer_to_jsoo
  : TypeLogementFoyer.t -> type_logement_foyer Js.t
  = function
  | LogementPersonnesAgeesOuHandicapees arg -> object%js
      val kind = Js.string "LogementPersonnesAgeesOuHandicapees"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ResidenceSociale arg -> object%js
      val kind = Js.string "ResidenceSociale"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995 arg -> object%js
      val kind = Js.string "FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Autre arg -> object%js
      val kind = Js.string "Autre"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let type_logement_foyer_of_jsoo
  (type_logement_foyer : type_logement_foyer Js.t) : TypeLogementFoyer.t =
  match type_logement_foyer##.kind |> Js.to_string with
  | "LogementPersonnesAgeesOuHandicapees" ->
    TypeLogementFoyer.LogementPersonnesAgeesOuHandicapees ()
  | "ResidenceSociale" -> TypeLogementFoyer.ResidenceSociale ()
  | "FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995" ->
    TypeLogementFoyer.FoyerJeunesTrvailleursOuMigrantsConventionneL353_2Avant1995 ()
  | "Autre" -> TypeLogementFoyer.Autre ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'TypeLogementFoyer.t'"
        cons)


class type categorie_equivalence_loyer_allocation_logement_foyer =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "EtudiantLogeEnChambreCROUS"
        - "EtudiantLogeEnChambreCROUSRehabilitee"
        - "PersonnesAgeesSelon3DeD842_16"
        - "AutresPersonnes" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let categorie_equivalence_loyer_allocation_logement_foyer_to_jsoo
  : CategorieEquivalenceLoyerAllocationLogementFoyer.t -> categorie_equivalence_loyer_allocation_logement_foyer Js.t
  = function
  | EtudiantLogeEnChambreCROUS arg -> object%js
      val kind = Js.string "EtudiantLogeEnChambreCROUS"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | EtudiantLogeEnChambreCROUSRehabilitee arg -> object%js
      val kind = Js.string "EtudiantLogeEnChambreCROUSRehabilitee"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | PersonnesAgeesSelon3DeD842_16 arg -> object%js
      val kind = Js.string "PersonnesAgeesSelon3DeD842_16"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AutresPersonnes arg -> object%js
      val kind = Js.string "AutresPersonnes"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let categorie_equivalence_loyer_allocation_logement_foyer_of_jsoo
  (categorie_equivalence_loyer_allocation_logement_foyer
    : categorie_equivalence_loyer_allocation_logement_foyer Js.t)
  : CategorieEquivalenceLoyerAllocationLogementFoyer.t =
  match categorie_equivalence_loyer_allocation_logement_foyer##.kind
    |> Js.to_string with
  | "EtudiantLogeEnChambreCROUS" ->
    CategorieEquivalenceLoyerAllocationLogementFoyer.EtudiantLogeEnChambreCROUS ()
  | "EtudiantLogeEnChambreCROUSRehabilitee" ->
    CategorieEquivalenceLoyerAllocationLogementFoyer.EtudiantLogeEnChambreCROUSRehabilitee ()
  | "PersonnesAgeesSelon3DeD842_16" ->
    CategorieEquivalenceLoyerAllocationLogementFoyer.PersonnesAgeesSelon3DeD842_16 ()
  | "AutresPersonnes" ->
    CategorieEquivalenceLoyerAllocationLogementFoyer.AutresPersonnes ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'CategorieEquivalenceLoyerAllocationLogementFoyer.t'"
        cons)


class type situation_familiale_calcul_a_p_l =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "PersonneSeule"
        - "Couple" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let situation_familiale_calcul_a_p_l_to_jsoo
  : SituationFamilialeCalculAPL.t -> situation_familiale_calcul_a_p_l Js.t
  = function
  | PersonneSeule arg -> object%js
      val kind = Js.string "PersonneSeule"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Couple arg -> object%js
      val kind = Js.string "Couple"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let situation_familiale_calcul_a_p_l_of_jsoo
  (situation_familiale_calcul_a_p_l : situation_familiale_calcul_a_p_l Js.t)
  : SituationFamilialeCalculAPL.t =
  match situation_familiale_calcul_a_p_l##.kind |> Js.to_string with
  | "PersonneSeule" -> SituationFamilialeCalculAPL.PersonneSeule ()
  | "Couple" -> SituationFamilialeCalculAPL.Couple ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'SituationFamilialeCalculAPL.t'"
        cons)


class type collectivite =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Guadeloupe"
        - "Guyane"
        - "Martinique"
        - "LaReunion"
        - "SaintBarthelemy"
        - "SaintMartin"
        - "Metropole"
        - "SaintPierreEtMiquelon"
        - "Mayotte" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let collectivite_to_jsoo : Collectivite.t -> collectivite Js.t
  = function
  | Guadeloupe arg -> object%js
      val kind = Js.string "Guadeloupe"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Guyane arg -> object%js
      val kind = Js.string "Guyane"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Martinique arg -> object%js
      val kind = Js.string "Martinique"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | LaReunion arg -> object%js
      val kind = Js.string "LaReunion"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | SaintBarthelemy arg -> object%js
      val kind = Js.string "SaintBarthelemy"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | SaintMartin arg -> object%js
      val kind = Js.string "SaintMartin"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Metropole arg -> object%js
      val kind = Js.string "Metropole"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | SaintPierreEtMiquelon arg -> object%js
      val kind = Js.string "SaintPierreEtMiquelon"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Mayotte arg -> object%js
      val kind = Js.string "Mayotte"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let collectivite_of_jsoo (collectivite : collectivite Js.t)
  : Collectivite.t =
  match collectivite##.kind |> Js.to_string with
  | "Guadeloupe" -> Collectivite.Guadeloupe ()
  | "Guyane" -> Collectivite.Guyane ()
  | "Martinique" -> Collectivite.Martinique ()
  | "LaReunion" -> Collectivite.LaReunion ()
  | "SaintBarthelemy" -> Collectivite.SaintBarthelemy ()
  | "SaintMartin" -> Collectivite.SaintMartin ()
  | "Metropole" -> Collectivite.Metropole ()
  | "SaintPierreEtMiquelon" -> Collectivite.SaintPierreEtMiquelon ()
  | "Mayotte" -> Collectivite.Mayotte ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'Collectivite.t'" cons)


class type prise_en_charge_enfant =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "GardeAlterneePartageAllocations"
        - "GardeAlterneeAllocataireUnique"
        - "EffectiveEtPermanente"
        - "ServicesSociauxAllocationVerseeALaFamille"
        - "ServicesSociauxAllocationVerseeAuxServicesSociaux" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let prise_en_charge_enfant_to_jsoo
  : PriseEnChargeEnfant.t -> prise_en_charge_enfant Js.t
  = function
  | GardeAlterneePartageAllocations arg -> object%js
      val kind = Js.string "GardeAlterneePartageAllocations"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | GardeAlterneeAllocataireUnique arg -> object%js
      val kind = Js.string "GardeAlterneeAllocataireUnique"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | EffectiveEtPermanente arg -> object%js
      val kind = Js.string "EffectiveEtPermanente"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ServicesSociauxAllocationVerseeALaFamille arg -> object%js
      val kind = Js.string "ServicesSociauxAllocationVerseeALaFamille"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ServicesSociauxAllocationVerseeAuxServicesSociaux arg -> object%js
      val kind = Js.string "ServicesSociauxAllocationVerseeAuxServicesSociaux"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let prise_en_charge_enfant_of_jsoo
  (prise_en_charge_enfant : prise_en_charge_enfant Js.t)
  : PriseEnChargeEnfant.t =
  match prise_en_charge_enfant##.kind |> Js.to_string with
  | "GardeAlterneePartageAllocations" ->
    PriseEnChargeEnfant.GardeAlterneePartageAllocations ()
  | "GardeAlterneeAllocataireUnique" ->
    PriseEnChargeEnfant.GardeAlterneeAllocataireUnique ()
  | "EffectiveEtPermanente" -> PriseEnChargeEnfant.EffectiveEtPermanente ()
  | "ServicesSociauxAllocationVerseeALaFamille" ->
    PriseEnChargeEnfant.ServicesSociauxAllocationVerseeALaFamille ()
  | "ServicesSociauxAllocationVerseeAuxServicesSociaux" ->
    PriseEnChargeEnfant.ServicesSociauxAllocationVerseeAuxServicesSociaux ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'PriseEnChargeEnfant.t'"
        cons)


class type situation_obligation_scolaire =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Avant"
        - "Pendant"
        - "Apres" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let situation_obligation_scolaire_to_jsoo
  : SituationObligationScolaire.t -> situation_obligation_scolaire Js.t
  = function
  | Avant arg -> object%js
      val kind = Js.string "Avant"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Pendant arg -> object%js
      val kind = Js.string "Pendant"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Apres arg -> object%js
      val kind = Js.string "Apres"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let situation_obligation_scolaire_of_jsoo
  (situation_obligation_scolaire : situation_obligation_scolaire Js.t)
  : SituationObligationScolaire.t =
  match situation_obligation_scolaire##.kind |> Js.to_string with
  | "Avant" -> SituationObligationScolaire.Avant ()
  | "Pendant" -> SituationObligationScolaire.Pendant ()
  | "Apres" -> SituationObligationScolaire.Apres ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'SituationObligationScolaire.t'"
        cons)


class type element_prestations_familiales =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "PrestationAccueilJeuneEnfant"
        - "AllocationsFamiliales"
        - "ComplementFamilial"
        - "AllocationLogement"
        - "AllocationEducationEnfantHandicape"
        - "AllocationSoutienFamilial"
        - "AllocationRentreeScolaire"
        - "AllocationJournalierePresenceParentale" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let element_prestations_familiales_to_jsoo
  : ElementPrestationsFamiliales.t -> element_prestations_familiales Js.t
  = function
  | PrestationAccueilJeuneEnfant arg -> object%js
      val kind = Js.string "PrestationAccueilJeuneEnfant"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationsFamiliales arg -> object%js
      val kind = Js.string "AllocationsFamiliales"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | ComplementFamilial arg -> object%js
      val kind = Js.string "ComplementFamilial"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationLogement arg -> object%js
      val kind = Js.string "AllocationLogement"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationEducationEnfantHandicape arg -> object%js
      val kind = Js.string "AllocationEducationEnfantHandicape"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationSoutienFamilial arg -> object%js
      val kind = Js.string "AllocationSoutienFamilial"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationRentreeScolaire arg -> object%js
      val kind = Js.string "AllocationRentreeScolaire"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | AllocationJournalierePresenceParentale arg -> object%js
      val kind = Js.string "AllocationJournalierePresenceParentale"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let element_prestations_familiales_of_jsoo
  (element_prestations_familiales : element_prestations_familiales Js.t)
  : ElementPrestationsFamiliales.t =
  match element_prestations_familiales##.kind |> Js.to_string with
  | "PrestationAccueilJeuneEnfant" ->
    ElementPrestationsFamiliales.PrestationAccueilJeuneEnfant ()
  | "AllocationsFamiliales" ->
    ElementPrestationsFamiliales.AllocationsFamiliales ()
  | "ComplementFamilial" ->
    ElementPrestationsFamiliales.ComplementFamilial ()
  | "AllocationLogement" ->
    ElementPrestationsFamiliales.AllocationLogement ()
  | "AllocationEducationEnfantHandicape" ->
    ElementPrestationsFamiliales.AllocationEducationEnfantHandicape ()
  | "AllocationSoutienFamilial" ->
    ElementPrestationsFamiliales.AllocationSoutienFamilial ()
  | "AllocationRentreeScolaire" ->
    ElementPrestationsFamiliales.AllocationRentreeScolaire ()
  | "AllocationJournalierePresenceParentale" ->
    ElementPrestationsFamiliales.AllocationJournalierePresenceParentale ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'ElementPrestationsFamiliales.t'"
        cons)


class type convention_bailleur_social =
  object
    method conventionneLivreIIITitreVChapIII: bool Js.t Js.readonly_prop
    method reductionLoyerSolidaritePercue: Js.number Js.t Js.readonly_prop
  end
  let convention_bailleur_social_to_jsoo (convention_bailleur_social
    : ConventionBailleurSocial.t) : convention_bailleur_social Js.t =
    object%js
      val conventionneLivreIIITitreVChapIII =
        Js.bool convention_bailleur_social.conventionne_livre_III_titre_V_chap_III
      val reductionLoyerSolidaritePercue =
        Js.number_of_float @@ money_to_float convention_bailleur_social.reduction_loyer_solidarite_percue
      end
  let convention_bailleur_social_of_jsoo
    (convention_bailleur_social : convention_bailleur_social Js.t) :
    ConventionBailleurSocial.t =
    {
      conventionne_livre_III_titre_V_chap_III =
        Js.to_bool
          convention_bailleur_social##.conventionneLivreIIITitreVChapIII;
      reduction_loyer_solidarite_percue =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          convention_bailleur_social##.reductionLoyerSolidaritePercue
    }

class type convention_a_n_h_a =
  object
    method conventionneLivreIIITitreIIChapISec3: bool Js.t Js.readonly_prop
  end
  let convention_a_n_h_a_to_jsoo (convention_a_n_h_a : ConventionANHA.t)
    : convention_a_n_h_a Js.t =
    object%js
      val conventionneLivreIIITitreIIChapISec3 =
        Js.bool convention_a_n_h_a.conventionne_livre_III_titre_II_chap_I_sec_3
      end
  let convention_a_n_h_a_of_jsoo
    (convention_a_n_h_a : convention_a_n_h_a Js.t) : ConventionANHA.t =
    {
      conventionne_livre_III_titre_II_chap_I_sec_3 =
        Js.to_bool convention_a_n_h_a##.conventionneLivreIIITitreIIChapISec3
    }

class type personne_sous_location =
  object
    method dateNaissancePersonneSousLocation:
      Js.js_string Js.t Js.readonly_prop
    method conformeArticleL4421: bool Js.t Js.readonly_prop
  end
  let personne_sous_location_to_jsoo (personne_sous_location
    : PersonneSousLocation.t) : personne_sous_location Js.t =
    object%js
      val dateNaissancePersonneSousLocation =
        date_to_jsoo personne_sous_location.date_naissance_personne_sous_location
      val conformeArticleL4421 =
        Js.bool personne_sous_location.conforme_article_l442_1
      end
  let personne_sous_location_of_jsoo
    (personne_sous_location : personne_sous_location Js.t) :
    PersonneSousLocation.t =
    {
      date_naissance_personne_sous_location =
        date_of_jsoo
          personne_sous_location##.dateNaissancePersonneSousLocation;
      conforme_article_l442_1 =
        Js.to_bool personne_sous_location##.conformeArticleL4421
    }

class type patrimoine =
  object
    method produisantRevenuPeriodeR82233R8224:
      Js.number Js.t Js.readonly_prop
    method neProduisantPasRevenuPeriodeR82233R8224:
      Js.number Js.t Js.readonly_prop
  end
  let patrimoine_to_jsoo (patrimoine : Patrimoine.t) : patrimoine Js.t =
    object%js
      val produisantRevenuPeriodeR82233R8224 =
        Js.number_of_float @@ money_to_float patrimoine.produisant_revenu_periode_r822_3_3_r822_4
      val neProduisantPasRevenuPeriodeR82233R8224 =
        Js.number_of_float @@ money_to_float patrimoine.ne_produisant_pas_revenu_periode_r822_3_3_r822_4
      end
  let patrimoine_of_jsoo (patrimoine : patrimoine Js.t) : Patrimoine.t =
    {
      produisant_revenu_periode_r822_3_3_r822_4 =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          patrimoine##.produisantRevenuPeriodeR82233R8224;
      ne_produisant_pas_revenu_periode_r822_3_3_r822_4 =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          patrimoine##.neProduisantPasRevenuPeriodeR82233R8224
    }

class type conditions_etrangers =
  object
    method satisfaitConditionsL5122CodeSecuriteSociale:
      bool Js.t Js.readonly_prop
  end
  let conditions_etrangers_to_jsoo (conditions_etrangers
    : ConditionsEtrangers.t) : conditions_etrangers Js.t =
    object%js
      val satisfaitConditionsL5122CodeSecuriteSociale =
        Js.bool conditions_etrangers.satisfait_conditions_l512_2_code_securite_sociale
      end
  let conditions_etrangers_of_jsoo
    (conditions_etrangers : conditions_etrangers Js.t) :
    ConditionsEtrangers.t =
    {
      satisfait_conditions_l512_2_code_securite_sociale =
        Js.to_bool
          conditions_etrangers##.satisfaitConditionsL5122CodeSecuriteSociale
    }

class type personne_vivant_habituellement_au_foyer =
  object
    method dureeResidenceDurantPeriodeR82231SuperieureA6Mois:
      bool Js.t Js.readonly_prop
    method ressources: Js.number Js.t Js.readonly_prop
  end
  let personne_vivant_habituellement_au_foyer_to_jsoo
    (personne_vivant_habituellement_au_foyer
    : PersonneVivantHabituellementAuFoyer.t)
    : personne_vivant_habituellement_au_foyer Js.t =
    object%js
      val dureeResidenceDurantPeriodeR82231SuperieureA6Mois =
        Js.bool personne_vivant_habituellement_au_foyer.duree_residence_durant_periode_r_822_3_1_superieure_a_6_mois
      val ressources =
        Js.number_of_float @@ money_to_float personne_vivant_habituellement_au_foyer.ressources
      end
  let personne_vivant_habituellement_au_foyer_of_jsoo
    (personne_vivant_habituellement_au_foyer
      : personne_vivant_habituellement_au_foyer Js.t) :
    PersonneVivantHabituellementAuFoyer.t =
    {
      duree_residence_durant_periode_r_822_3_1_superieure_a_6_mois =
        Js.to_bool
          personne_vivant_habituellement_au_foyer
          ##.dureeResidenceDurantPeriodeR82231SuperieureA6Mois;
      ressources =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          personne_vivant_habituellement_au_foyer##.ressources
    }

class type infos_changement_logement_d842_4 =
  object
    method ancienLoyerPrincipal: Js.number Js.t Js.readonly_prop
    method ancienneAllocationLogement: Js.number Js.t Js.readonly_prop
  end
  let infos_changement_logement_d842_4_to_jsoo
    (infos_changement_logement_d842_4 : InfosChangementLogementD8424.t)
    : infos_changement_logement_d842_4 Js.t =
    object%js
      val ancienLoyerPrincipal =
        Js.number_of_float @@ money_to_float infos_changement_logement_d842_4.ancien_loyer_principal
      val ancienneAllocationLogement =
        Js.number_of_float @@ money_to_float infos_changement_logement_d842_4.ancienne_allocation_logement
      end
  let infos_changement_logement_d842_4_of_jsoo
    (infos_changement_logement_d842_4
      : infos_changement_logement_d842_4 Js.t) :
    InfosChangementLogementD8424.t =
    {
      ancien_loyer_principal =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          infos_changement_logement_d842_4##.ancienLoyerPrincipal;
      ancienne_allocation_logement =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          infos_changement_logement_d842_4##.ancienneAllocationLogement
    }

class type pret =
  object
    method typePret: type_pret Js.t Js.readonly_prop
    method dateSignature: Js.js_string Js.t Js.readonly_prop
    method titulairePret: titulaire_pret Js.t Js.readonly_prop
  end
  let pret_to_jsoo (pret : Pret.t) : pret Js.t =
    object%js
      val typePret = type_pret_to_jsoo pret.type_pret
      val dateSignature = date_to_jsoo pret.date_signature
      val titulairePret = titulaire_pret_to_jsoo pret.titulaire_pret
      end
  let pret_of_jsoo (pret : pret Js.t) : Pret.t =
    {
      type_pret = type_pret_of_jsoo pret##.typePret;
      date_signature = date_of_jsoo pret##.dateSignature;
      titulaire_pret = titulaire_pret_of_jsoo pret##.titulairePret
    }

class type neuf_ou_ancien =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Neuf"
        - "Ancien" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let neuf_ou_ancien_to_jsoo : NeufOuAncien.t -> neuf_ou_ancien Js.t
  = function
  | Neuf arg -> object%js
      val kind = Js.string "Neuf"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Ancien arg -> object%js
      val kind = Js.string "Ancien"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (ameliore_par_occupant_to_jsoo arg))
    end

let neuf_ou_ancien_of_jsoo (neuf_ou_ancien : neuf_ou_ancien Js.t)
  : NeufOuAncien.t =
  match neuf_ou_ancien##.kind |> Js.to_string with
  | "Neuf" -> NeufOuAncien.Neuf ()
  | "Ancien" ->
  NeufOuAncien.Ancien (ameliore_par_occupant_of_jsoo (Js.Unsafe.coerce neuf_ou_ancien##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'NeufOuAncien.t'" cons)


class type tranche_revenu =
  object
    method haut: limite_tranche Js.t Js.readonly_prop
    method bas: Js.number Js.t Js.readonly_prop
    method taux: Js.number Js.t Js.readonly_prop
  end
  let tranche_revenu_to_jsoo (tranche_revenu : TrancheRevenu.t)
    : tranche_revenu Js.t =
    object%js
      val haut = limite_tranche_to_jsoo tranche_revenu.haut
      val bas = Js.number_of_float @@ money_to_float tranche_revenu.bas
      val taux = Js.number_of_float @@ decimal_to_float tranche_revenu.taux
      end
  let tranche_revenu_of_jsoo (tranche_revenu : tranche_revenu Js.t) :
    TrancheRevenu.t =
    {
      haut = limite_tranche_of_jsoo tranche_revenu##.haut;
      bas =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          tranche_revenu##.bas;
      taux = decimal_of_float @@ Js.float_of_number tranche_revenu##.taux
    }

class type tranche_revenu_decimal =
  object
    method haut: limite_tranche_decimal Js.t Js.readonly_prop
    method bas: Js.number Js.t Js.readonly_prop
    method taux: Js.number Js.t Js.readonly_prop
  end
  let tranche_revenu_decimal_to_jsoo (tranche_revenu_decimal
    : TrancheRevenuDecimal.t) : tranche_revenu_decimal Js.t =
    object%js
      val haut = limite_tranche_decimal_to_jsoo tranche_revenu_decimal.haut
      val bas =
        Js.number_of_float @@ decimal_to_float tranche_revenu_decimal.bas
      val taux =
        Js.number_of_float @@ decimal_to_float tranche_revenu_decimal.taux
      end
  let tranche_revenu_decimal_of_jsoo
    (tranche_revenu_decimal : tranche_revenu_decimal Js.t) :
    TrancheRevenuDecimal.t =
    {
      haut = limite_tranche_decimal_of_jsoo tranche_revenu_decimal##.haut;
      bas =
        decimal_of_float @@ Js.float_of_number tranche_revenu_decimal##.bas;
      taux =
        decimal_of_float @@ Js.float_of_number tranche_revenu_decimal##.taux
    }

class type autre_personne_a_charge =
  object
    method dateNaissance: Js.js_string Js.t Js.readonly_prop
    method ressources: Js.number Js.t Js.readonly_prop
    method ascendantDescendantCollateralDeuxiemeTroisiemeDegre:
      bool Js.t Js.readonly_prop
    method parente: parente Js.t Js.readonly_prop
    method incapacite80PourcentOuRestrictionEmploi:
      bool Js.t Js.readonly_prop
    method beneficiaireL16119L3518L6433Secu: bool Js.t Js.readonly_prop
    method titulaireAllocationPersonneAgee: bool Js.t Js.readonly_prop
  end
  let autre_personne_a_charge_to_jsoo (autre_personne_a_charge
    : AutrePersonneACharge.t) : autre_personne_a_charge Js.t =
    object%js
      val dateNaissance = date_to_jsoo autre_personne_a_charge.date_naissance
      val ressources =
        Js.number_of_float @@ money_to_float autre_personne_a_charge.ressources
      val ascendantDescendantCollateralDeuxiemeTroisiemeDegre =
        Js.bool autre_personne_a_charge.ascendant_descendant_collateral_deuxieme_troisieme_degre
      val parente = parente_to_jsoo autre_personne_a_charge.parente
      val incapacite80PourcentOuRestrictionEmploi =
        Js.bool autre_personne_a_charge.incapacite_80_pourcent_ou_restriction_emploi
      val beneficiaireL16119L3518L6433Secu =
        Js.bool autre_personne_a_charge.beneficiaire_l161_19_l351_8_l643_3_secu
      val titulaireAllocationPersonneAgee =
        Js.bool autre_personne_a_charge.titulaire_allocation_personne_agee
      end
  let autre_personne_a_charge_of_jsoo
    (autre_personne_a_charge : autre_personne_a_charge Js.t) :
    AutrePersonneACharge.t =
    {
      date_naissance = date_of_jsoo autre_personne_a_charge##.dateNaissance;
      ressources =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          autre_personne_a_charge##.ressources;
      ascendant_descendant_collateral_deuxieme_troisieme_degre =
        Js.to_bool
          autre_personne_a_charge
          ##.ascendantDescendantCollateralDeuxiemeTroisiemeDegre;
      parente = parente_of_jsoo autre_personne_a_charge##.parente;
      incapacite_80_pourcent_ou_restriction_emploi =
        Js.to_bool
          autre_personne_a_charge##.incapacite80PourcentOuRestrictionEmploi;
      beneficiaire_l161_19_l351_8_l643_3_secu =
        Js.to_bool autre_personne_a_charge##.beneficiaireL16119L3518L6433Secu;
      titulaire_allocation_personne_agee =
        Js.to_bool autre_personne_a_charge##.titulaireAllocationPersonneAgee
    }

class type date_naissance_troisieme_ou_dernier_plus_enfant =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "MoinsDeTroisEnfants"
        - "PlusDeTroisEnfants" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let date_naissance_troisieme_ou_dernier_plus_enfant_to_jsoo
  : DateNaissanceTroisiemeOuDernierPlusEnfant.t -> date_naissance_troisieme_ou_dernier_plus_enfant Js.t
  = function
  | MoinsDeTroisEnfants arg -> object%js
      val kind = Js.string "MoinsDeTroisEnfants"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | PlusDeTroisEnfants arg -> object%js
      val kind = Js.string "PlusDeTroisEnfants"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (date_de_naissance_ou_mois_de_grossesse_to_jsoo arg))
    end

let date_naissance_troisieme_ou_dernier_plus_enfant_of_jsoo
  (date_naissance_troisieme_ou_dernier_plus_enfant
    : date_naissance_troisieme_ou_dernier_plus_enfant Js.t)
  : DateNaissanceTroisiemeOuDernierPlusEnfant.t =
  match date_naissance_troisieme_ou_dernier_plus_enfant##.kind
    |> Js.to_string with
  | "MoinsDeTroisEnfants" ->
    DateNaissanceTroisiemeOuDernierPlusEnfant.MoinsDeTroisEnfants ()
  | "PlusDeTroisEnfants" ->
  DateNaissanceTroisiemeOuDernierPlusEnfant.PlusDeTroisEnfants (date_de_naissance_ou_mois_de_grossesse_of_jsoo (Js.Unsafe.coerce date_naissance_troisieme_ou_dernier_plus_enfant##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'DateNaissanceTroisiemeOuDernierPlusEnfant.t'"
        cons)


class type logement_foyer =
  object
    method typeUser: type_logement_foyer Js.t Js.readonly_prop
    method remplitConditionsR83221: bool Js.t Js.readonly_prop
    method conventionneLivreIIITitreVChapIII: bool Js.t Js.readonly_prop
    method dateConventionnement: Js.js_string Js.t Js.readonly_prop
    method construitApplicationLoi195712III: bool Js.t Js.readonly_prop
    method redevance: Js.number Js.t Js.readonly_prop
    method categorieEquivalenceLoyerD84216:
      categorie_equivalence_loyer_allocation_logement_foyer Js.t Js.readonly_prop
  end
  let logement_foyer_to_jsoo (logement_foyer : LogementFoyer.t)
    : logement_foyer Js.t =
    object%js
      val typeUser = type_logement_foyer_to_jsoo logement_foyer.type_user
      val remplitConditionsR83221 =
        Js.bool logement_foyer.remplit_conditions_r832_21
      val conventionneLivreIIITitreVChapIII =
        Js.bool logement_foyer.conventionne_livre_III_titre_V_chap_III
      val dateConventionnement =
        date_to_jsoo logement_foyer.date_conventionnement
      val construitApplicationLoi195712III =
        Js.bool logement_foyer.construit_application_loi_1957_12_III
      val redevance =
        Js.number_of_float @@ money_to_float logement_foyer.redevance
      val categorieEquivalenceLoyerD84216 =
        categorie_equivalence_loyer_allocation_logement_foyer_to_jsoo logement_foyer.categorie_equivalence_loyer_d842_16
      end
  let logement_foyer_of_jsoo (logement_foyer : logement_foyer Js.t) :
    LogementFoyer.t =
    {
      type_user = type_logement_foyer_of_jsoo logement_foyer##.typeUser;
      remplit_conditions_r832_21 =
        Js.to_bool logement_foyer##.remplitConditionsR83221;
      conventionne_livre_III_titre_V_chap_III =
        Js.to_bool logement_foyer##.conventionneLivreIIITitreVChapIII;
      date_conventionnement =
        date_of_jsoo logement_foyer##.dateConventionnement;
      construit_application_loi_1957_12_III =
        Js.to_bool logement_foyer##.construitApplicationLoi195712III;
      redevance =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          logement_foyer##.redevance;
      categorie_equivalence_loyer_d842_16 =
        categorie_equivalence_loyer_allocation_logement_foyer_of_jsoo
          logement_foyer##.categorieEquivalenceLoyerD84216
    }

class type enfant_prestations_familiales =
  object
    method identifiant: int Js.readonly_prop
    method obligationScolaire:
      situation_obligation_scolaire Js.t Js.readonly_prop
    method remunerationMensuelle: Js.number Js.t Js.readonly_prop
    method dateDeNaissance: Js.js_string Js.t Js.readonly_prop
    method priseEnCharge: prise_en_charge_enfant Js.t Js.readonly_prop
    method aDejaOuvertDroitAuxAllocationsFamiliales:
      bool Js.t Js.readonly_prop
    method beneficieTitrePersonnelAidePersonnelleLogement:
      bool Js.t Js.readonly_prop
  end
  let enfant_prestations_familiales_to_jsoo (enfant_prestations_familiales
    : EnfantPrestationsFamiliales.t) : enfant_prestations_familiales Js.t =
    object%js
      val identifiant =
        integer_to_int enfant_prestations_familiales.identifiant
      val obligationScolaire =
        situation_obligation_scolaire_to_jsoo enfant_prestations_familiales.obligation_scolaire
      val remunerationMensuelle =
        Js.number_of_float @@ money_to_float enfant_prestations_familiales.remuneration_mensuelle
      val dateDeNaissance =
        date_to_jsoo enfant_prestations_familiales.date_de_naissance
      val priseEnCharge =
        prise_en_charge_enfant_to_jsoo enfant_prestations_familiales.prise_en_charge
      val aDejaOuvertDroitAuxAllocationsFamiliales =
        Js.bool enfant_prestations_familiales.a_deja_ouvert_droit_aux_allocations_familiales
      val beneficieTitrePersonnelAidePersonnelleLogement =
        Js.bool enfant_prestations_familiales.beneficie_titre_personnel_aide_personnelle_logement
      end
  let enfant_prestations_familiales_of_jsoo
    (enfant_prestations_familiales : enfant_prestations_familiales Js.t) :
    EnfantPrestationsFamiliales.t =
    {
      identifiant = integer_of_int enfant_prestations_familiales##.identifiant;
      obligation_scolaire =
        situation_obligation_scolaire_of_jsoo
          enfant_prestations_familiales##.obligationScolaire;
      remuneration_mensuelle =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          enfant_prestations_familiales##.remunerationMensuelle;
      date_de_naissance =
        date_of_jsoo enfant_prestations_familiales##.dateDeNaissance;
      prise_en_charge =
        prise_en_charge_enfant_of_jsoo
          enfant_prestations_familiales##.priseEnCharge;
      a_deja_ouvert_droit_aux_allocations_familiales =
        Js.to_bool
          enfant_prestations_familiales
          ##.aDejaOuvertDroitAuxAllocationsFamiliales;
      beneficie_titre_personnel_aide_personnelle_logement =
        Js.to_bool
          enfant_prestations_familiales
          ##.beneficieTitrePersonnelAidePersonnelleLogement
    }

class type enfant_a_charge =
  object
    method identifiant: int Js.readonly_prop
    method beneficieTitrePersonnelAidePersonnelleLogement:
      bool Js.t Js.readonly_prop
    method aDejaOuvertDroitAuxAllocationsFamiliales:
      bool Js.t Js.readonly_prop
    method dateDeNaissance: Js.js_string Js.t Js.readonly_prop
    method remunerationMensuelle: Js.number Js.t Js.readonly_prop
    method obligationScolaire:
      situation_obligation_scolaire Js.t Js.readonly_prop
    method situationGardeAlternee:
      situation_garde_alternee Js.t Js.readonly_prop
  end
  let enfant_a_charge_to_jsoo (enfant_a_charge : EnfantACharge.t)
    : enfant_a_charge Js.t =
    object%js
      val identifiant = integer_to_int enfant_a_charge.identifiant
      val beneficieTitrePersonnelAidePersonnelleLogement =
        Js.bool enfant_a_charge.beneficie_titre_personnel_aide_personnelle_logement
      val aDejaOuvertDroitAuxAllocationsFamiliales =
        Js.bool enfant_a_charge.a_deja_ouvert_droit_aux_allocations_familiales
      val dateDeNaissance = date_to_jsoo enfant_a_charge.date_de_naissance
      val remunerationMensuelle =
        Js.number_of_float @@ money_to_float enfant_a_charge.remuneration_mensuelle
      val obligationScolaire =
        situation_obligation_scolaire_to_jsoo enfant_a_charge.obligation_scolaire
      val situationGardeAlternee =
        situation_garde_alternee_to_jsoo enfant_a_charge.situation_garde_alternee
      end
  let enfant_a_charge_of_jsoo (enfant_a_charge : enfant_a_charge Js.t) :
    EnfantACharge.t =
    {
      identifiant = integer_of_int enfant_a_charge##.identifiant;
      beneficie_titre_personnel_aide_personnelle_logement =
        Js.to_bool
          enfant_a_charge##.beneficieTitrePersonnelAidePersonnelleLogement;
      a_deja_ouvert_droit_aux_allocations_familiales =
        Js.to_bool enfant_a_charge##.aDejaOuvertDroitAuxAllocationsFamiliales;
      date_de_naissance = date_of_jsoo enfant_a_charge##.dateDeNaissance;
      remuneration_mensuelle =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          enfant_a_charge##.remunerationMensuelle;
      obligation_scolaire =
        situation_obligation_scolaire_of_jsoo
          enfant_a_charge##.obligationScolaire;
      situation_garde_alternee =
        situation_garde_alternee_of_jsoo
          enfant_a_charge##.situationGardeAlternee
    }

class type type_bailleur =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "BailleurSocial"
        - "BailleurPriveAvecConventionnementSocial"
        - "BailleurPrive" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let type_bailleur_to_jsoo : TypeBailleur.t -> type_bailleur Js.t
  = function
  | BailleurSocial arg -> object%js
      val kind = Js.string "BailleurSocial"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (convention_bailleur_social_to_jsoo arg))
    end
  | BailleurPriveAvecConventionnementSocial arg -> object%js
      val kind = Js.string "BailleurPriveAvecConventionnementSocial"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (convention_a_n_h_a_to_jsoo arg))
    end
  | BailleurPrive arg -> object%js
      val kind = Js.string "BailleurPrive"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let type_bailleur_of_jsoo (type_bailleur : type_bailleur Js.t)
  : TypeBailleur.t =
  match type_bailleur##.kind |> Js.to_string with
  | "BailleurSocial" ->
  TypeBailleur.BailleurSocial (convention_bailleur_social_of_jsoo (Js.Unsafe.coerce type_bailleur##.payload))
  | "BailleurPriveAvecConventionnementSocial" ->
  TypeBailleur.BailleurPriveAvecConventionnementSocial (convention_a_n_h_a_of_jsoo (Js.Unsafe.coerce type_bailleur##.payload))
  | "BailleurPrive" -> TypeBailleur.BailleurPrive ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'TypeBailleur.t'" cons)


class type loue_ou_sous_loue_a_des_tiers =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Non"
        - "Oui" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let loue_ou_sous_loue_a_des_tiers_to_jsoo
  : LoueOuSousLoueADesTiers.t -> loue_ou_sous_loue_a_des_tiers Js.t
  = function
  | Non arg -> object%js
      val kind = Js.string "Non"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Oui arg -> object%js
      val kind = Js.string "Oui"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (personne_sous_location_to_jsoo arg))
    end

let loue_ou_sous_loue_a_des_tiers_of_jsoo
  (loue_ou_sous_loue_a_des_tiers : loue_ou_sous_loue_a_des_tiers Js.t)
  : LoueOuSousLoueADesTiers.t =
  match loue_ou_sous_loue_a_des_tiers##.kind |> Js.to_string with
  | "Non" -> LoueOuSousLoueADesTiers.Non ()
  | "Oui" ->
  LoueOuSousLoueADesTiers.Oui (personne_sous_location_of_jsoo (Js.Unsafe.coerce loue_ou_sous_loue_a_des_tiers##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'LoueOuSousLoueADesTiers.t'"
        cons)


class type nationalite =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Francaise"
        - "Etrangere" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let nationalite_to_jsoo : Nationalite.t -> nationalite Js.t
  = function
  | Francaise arg -> object%js
      val kind = Js.string "Francaise"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end
  | Etrangere arg -> object%js
      val kind = Js.string "Etrangere"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (conditions_etrangers_to_jsoo arg))
    end

let nationalite_of_jsoo (nationalite : nationalite Js.t) : Nationalite.t =
  match nationalite##.kind |> Js.to_string with
  | "Francaise" -> Nationalite.Francaise ()
  | "Etrangere" ->
  Nationalite.Etrangere (conditions_etrangers_of_jsoo (Js.Unsafe.coerce nationalite##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'Nationalite.t'" cons)


class type changement_logement_d842_4 =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Changement"
        - "PasDeChangement" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let changement_logement_d842_4_to_jsoo
  : ChangementLogementD8424.t -> changement_logement_d842_4 Js.t
  = function
  | Changement arg -> object%js
      val kind = Js.string "Changement"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (infos_changement_logement_d842_4_to_jsoo arg))
    end
  | PasDeChangement arg -> object%js
      val kind = Js.string "PasDeChangement"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject ( arg))
    end

let changement_logement_d842_4_of_jsoo
  (changement_logement_d842_4 : changement_logement_d842_4 Js.t)
  : ChangementLogementD8424.t =
  match changement_logement_d842_4##.kind |> Js.to_string with
  | "Changement" ->
  ChangementLogementD8424.Changement (infos_changement_logement_d842_4_of_jsoo (Js.Unsafe.coerce changement_logement_d842_4##.payload))
  | "PasDeChangement" -> ChangementLogementD8424.PasDeChangement ()
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'ChangementLogementD8424.t'"
        cons)


class type proprietaire =
  object
    method logementSitueCommuneDesequilibreL8312: bool Js.t Js.readonly_prop
    method mensualitePrincipale: Js.number Js.t Js.readonly_prop
    method chargesMensuellesPret: Js.number Js.t Js.readonly_prop
    method dateEntreeLogement: Js.js_string Js.t Js.readonly_prop
    method typeTravauxLogementD83215:
      type_travaux_logement_d832_15 Js.t Js.readonly_prop
    method typeTravauxLogementR8425:
      type_travaux_logement_r842_5 Js.t Js.readonly_prop
    method localHabitePremiereFoisBeneficiaire: bool Js.t Js.readonly_prop
    method copropriete: bool Js.t Js.readonly_prop
    method situationR822111317: bool Js.t Js.readonly_prop
    method ancienneteLogement: neuf_ou_ancien Js.t Js.readonly_prop
    method pret: pret Js.t Js.readonly_prop
  end
  let proprietaire_to_jsoo (proprietaire : Proprietaire.t)
    : proprietaire Js.t =
    object%js
      val logementSitueCommuneDesequilibreL8312 =
        Js.bool proprietaire.logement_situe_commune_desequilibre_l831_2
      val mensualitePrincipale =
        Js.number_of_float @@ money_to_float proprietaire.mensualite_principale
      val chargesMensuellesPret =
        Js.number_of_float @@ money_to_float proprietaire.charges_mensuelles_pret
      val dateEntreeLogement = date_to_jsoo proprietaire.date_entree_logement
      val typeTravauxLogementD83215 =
        type_travaux_logement_d832_15_to_jsoo proprietaire.type_travaux_logement_d832_15
      val typeTravauxLogementR8425 =
        type_travaux_logement_r842_5_to_jsoo proprietaire.type_travaux_logement_r842_5
      val localHabitePremiereFoisBeneficiaire =
        Js.bool proprietaire.local_habite_premiere_fois_beneficiaire
      val copropriete = Js.bool proprietaire.copropriete
      val situationR822111317 = Js.bool proprietaire.situation_r822_11_13_17
      val ancienneteLogement =
        neuf_ou_ancien_to_jsoo proprietaire.anciennete_logement
      val pret = pret_to_jsoo proprietaire.pret
      end
  let proprietaire_of_jsoo (proprietaire : proprietaire Js.t) :
    Proprietaire.t =
    {
      logement_situe_commune_desequilibre_l831_2 =
        Js.to_bool proprietaire##.logementSitueCommuneDesequilibreL8312;
      mensualite_principale =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          proprietaire##.mensualitePrincipale;
      charges_mensuelles_pret =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          proprietaire##.chargesMensuellesPret;
      date_entree_logement = date_of_jsoo proprietaire##.dateEntreeLogement;
      type_travaux_logement_d832_15 =
        type_travaux_logement_d832_15_of_jsoo
          proprietaire##.typeTravauxLogementD83215;
      type_travaux_logement_r842_5 =
        type_travaux_logement_r842_5_of_jsoo
          proprietaire##.typeTravauxLogementR8425;
      local_habite_premiere_fois_beneficiaire =
        Js.to_bool proprietaire##.localHabitePremiereFoisBeneficiaire;
      copropriete = Js.to_bool proprietaire##.copropriete;
      situation_r822_11_13_17 = Js.to_bool proprietaire##.situationR822111317;
      anciennete_logement =
        neuf_ou_ancien_of_jsoo proprietaire##.ancienneteLogement;
      pret = pret_of_jsoo proprietaire##.pret
    }

class type informations_prime_de_demenagement =
  object
    method nombreEnfantsANaitreApresTroisiemeMoisGrossesse:
      int Js.readonly_prop
    method dateNaissanceTroisiemeEnfantOuDernierSiPlus:
      date_naissance_troisieme_ou_dernier_plus_enfant Js.t Js.readonly_prop
  end
  let informations_prime_de_demenagement_to_jsoo
    (informations_prime_de_demenagement : InformationsPrimeDeDemenagement.t)
    : informations_prime_de_demenagement Js.t =
    object%js
      val nombreEnfantsANaitreApresTroisiemeMoisGrossesse =
        integer_to_int informations_prime_de_demenagement.nombre_enfants_a_naitre_apres_troisieme_mois_grossesse
      val dateNaissanceTroisiemeEnfantOuDernierSiPlus =
        date_naissance_troisieme_ou_dernier_plus_enfant_to_jsoo informations_prime_de_demenagement.date_naissance_troisieme_enfant_ou_dernier_si_plus
      end
  let informations_prime_de_demenagement_of_jsoo
    (informations_prime_de_demenagement
      : informations_prime_de_demenagement Js.t) :
    InformationsPrimeDeDemenagement.t =
    {
      nombre_enfants_a_naitre_apres_troisieme_mois_grossesse =
        integer_of_int
          informations_prime_de_demenagement
          ##.nombreEnfantsANaitreApresTroisiemeMoisGrossesse;
      date_naissance_troisieme_enfant_ou_dernier_si_plus =
        date_naissance_troisieme_ou_dernier_plus_enfant_of_jsoo
          informations_prime_de_demenagement
          ##.dateNaissanceTroisiemeEnfantOuDernierSiPlus
    }

class type personne_a_charge =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "EnfantACharge"
        - "AutrePersonneACharge" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let personne_a_charge_to_jsoo : PersonneACharge.t -> personne_a_charge Js.t
  = function
  | EnfantACharge arg -> object%js
      val kind = Js.string "EnfantACharge"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (enfant_a_charge_to_jsoo arg))
    end
  | AutrePersonneACharge arg -> object%js
      val kind = Js.string "AutrePersonneACharge"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (autre_personne_a_charge_to_jsoo arg))
    end

let personne_a_charge_of_jsoo (personne_a_charge : personne_a_charge Js.t)
  : PersonneACharge.t =
  match personne_a_charge##.kind |> Js.to_string with
  | "EnfantACharge" ->
  PersonneACharge.EnfantACharge (enfant_a_charge_of_jsoo (Js.Unsafe.coerce personne_a_charge##.payload))
  | "AutrePersonneACharge" ->
  PersonneACharge.AutrePersonneACharge (autre_personne_a_charge_of_jsoo (Js.Unsafe.coerce personne_a_charge##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'PersonneACharge.t'" cons)


class type demandeur =
  object
    method dateNaissance: Js.js_string Js.t Js.readonly_prop
    method nationalite: nationalite Js.t Js.readonly_prop
    method patrimoine: patrimoine Js.t Js.readonly_prop
    method personneHebergeeCentreSoinLL162223SecuriteSociale:
      bool Js.t Js.readonly_prop
  end
  let demandeur_to_jsoo (demandeur : Demandeur.t) : demandeur Js.t =
    object%js
      val dateNaissance = date_to_jsoo demandeur.date_naissance
      val nationalite = nationalite_to_jsoo demandeur.nationalite
      val patrimoine = patrimoine_to_jsoo demandeur.patrimoine
      val personneHebergeeCentreSoinLL162223SecuriteSociale =
        Js.bool demandeur.personne_hebergee_centre_soin_l_L162_22_3_securite_sociale
      end
  let demandeur_of_jsoo (demandeur : demandeur Js.t) : Demandeur.t =
    {
      date_naissance = date_of_jsoo demandeur##.dateNaissance;
      nationalite = nationalite_of_jsoo demandeur##.nationalite;
      patrimoine = patrimoine_of_jsoo demandeur##.patrimoine;
      personne_hebergee_centre_soin_l_L162_22_3_securite_sociale =
        Js.to_bool
          demandeur##.personneHebergeeCentreSoinLL162223SecuriteSociale
    }

class type location =
  object
    method bailleur: type_bailleur Js.t Js.readonly_prop
    method loyerPrincipal: Js.number Js.t Js.readonly_prop
    method beneficiaireAideAdulteOuEnfantHandicapes:
      bool Js.t Js.readonly_prop
    method logementEstChambre: bool Js.t Js.readonly_prop
    method colocation: bool Js.t Js.readonly_prop
    method ageesOuHandicapAdultesHebergeesOnereuxParticuliers:
      bool Js.t Js.readonly_prop
    method logementMeubleD8422: bool Js.t Js.readonly_prop
    method changementLogementD8424:
      changement_logement_d842_4 Js.t Js.readonly_prop
  end
  let location_to_jsoo (location : Location.t) : location Js.t =
    object%js
      val bailleur = type_bailleur_to_jsoo location.bailleur
      val loyerPrincipal =
        Js.number_of_float @@ money_to_float location.loyer_principal
      val beneficiaireAideAdulteOuEnfantHandicapes =
        Js.bool location.beneficiaire_aide_adulte_ou_enfant_handicapes
      val logementEstChambre = Js.bool location.logement_est_chambre
      val colocation = Js.bool location.colocation
      val ageesOuHandicapAdultesHebergeesOnereuxParticuliers =
        Js.bool location.agees_ou_handicap_adultes_hebergees_onereux_particuliers
      val logementMeubleD8422 = Js.bool location.logement_meuble_d842_2
      val changementLogementD8424 =
        changement_logement_d842_4_to_jsoo location.changement_logement_d842_4
      end
  let location_of_jsoo (location : location Js.t) : Location.t =
    {
      bailleur = type_bailleur_of_jsoo location##.bailleur;
      loyer_principal =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          location##.loyerPrincipal;
      beneficiaire_aide_adulte_ou_enfant_handicapes =
        Js.to_bool location##.beneficiaireAideAdulteOuEnfantHandicapes;
      logement_est_chambre = Js.to_bool location##.logementEstChambre;
      colocation = Js.to_bool location##.colocation;
      agees_ou_handicap_adultes_hebergees_onereux_particuliers =
        Js.to_bool
          location##.ageesOuHandicapAdultesHebergeesOnereuxParticuliers;
      logement_meuble_d842_2 = Js.to_bool location##.logementMeubleD8422;
      changement_logement_d842_4 =
        changement_logement_d842_4_of_jsoo location##.changementLogementD8424
    }

class type mode_occupation =
  object
    method kind :
      Js.js_string Js.t Js.readonly_prop
      (** Expects one of:
        - "Locataire"
        - "ResidentLogementFoyer"
        - "AccessionProprieteLocalUsageExclusifHabitation"
        - "SousLocataire"
        - "LocationAccession" *)
    
    method payload : Js.Unsafe.any Js.t Js.readonly_prop
  end

let mode_occupation_to_jsoo : ModeOccupation.t -> mode_occupation Js.t
  = function
  | Locataire arg -> object%js
      val kind = Js.string "Locataire"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (location_to_jsoo arg))
    end
  | ResidentLogementFoyer arg -> object%js
      val kind = Js.string "ResidentLogementFoyer"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (logement_foyer_to_jsoo arg))
    end
  | AccessionProprieteLocalUsageExclusifHabitation arg -> object%js
      val kind = Js.string "AccessionProprieteLocalUsageExclusifHabitation"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (proprietaire_to_jsoo arg))
    end
  | SousLocataire arg -> object%js
      val kind = Js.string "SousLocataire"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (location_to_jsoo arg))
    end
  | LocationAccession arg -> object%js
      val kind = Js.string "LocationAccession"
      val payload = Js.Unsafe.coerce (Js.Unsafe.inject (proprietaire_to_jsoo arg))
    end

let mode_occupation_of_jsoo (mode_occupation : mode_occupation Js.t)
  : ModeOccupation.t =
  match mode_occupation##.kind |> Js.to_string with
  | "Locataire" ->
  ModeOccupation.Locataire (location_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
  | "ResidentLogementFoyer" ->
  ModeOccupation.ResidentLogementFoyer (logement_foyer_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
  | "AccessionProprieteLocalUsageExclusifHabitation" ->
  ModeOccupation.AccessionProprieteLocalUsageExclusifHabitation (proprietaire_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
  | "SousLocataire" ->
  ModeOccupation.SousLocataire (location_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
  | "LocationAccession" ->
  ModeOccupation.LocationAccession (proprietaire_of_jsoo (Js.Unsafe.coerce mode_occupation##.payload))
  | cons ->
    failwith
      (Printf.sprintf
        "Unexpected '%s' kind for the enumeration 'ModeOccupation.t'" cons)


class type logement =
  object
    method residencePrincipale: bool Js.t Js.readonly_prop
    method estEhpadOuMaisonAutonomieL31312Asf: bool Js.t Js.readonly_prop
    method modeOccupation: mode_occupation Js.t Js.readonly_prop
    method proprietaire: parent_ou_autre Js.t Js.readonly_prop
    method loueOuSousLoueADesTiers:
      loue_ou_sous_loue_a_des_tiers Js.t Js.readonly_prop
    method usufruit: parent_ou_autre Js.t Js.readonly_prop
    method logementDecentL89462: bool Js.t Js.readonly_prop
    method surfaceMCarres: int Js.readonly_prop
    method zone: zone_d_habitation Js.t Js.readonly_prop
  end
  let logement_to_jsoo (logement : Logement.t) : logement Js.t =
    object%js
      val residencePrincipale = Js.bool logement.residence_principale
      val estEhpadOuMaisonAutonomieL31312Asf =
        Js.bool logement.est_ehpad_ou_maison_autonomie_l313_12_asf
      val modeOccupation = mode_occupation_to_jsoo logement.mode_occupation
      val proprietaire = parent_ou_autre_to_jsoo logement.proprietaire
      val loueOuSousLoueADesTiers =
        loue_ou_sous_loue_a_des_tiers_to_jsoo logement.loue_ou_sous_loue_a_des_tiers
      val usufruit = parent_ou_autre_to_jsoo logement.usufruit
      val logementDecentL89462 = Js.bool logement.logement_decent_l89_462
      val surfaceMCarres = integer_to_int logement.surface_m_carres
      val zone = zone_d_habitation_to_jsoo logement.zone
      end
  let logement_of_jsoo (logement : logement Js.t) : Logement.t =
    {
      residence_principale = Js.to_bool logement##.residencePrincipale;
      est_ehpad_ou_maison_autonomie_l313_12_asf =
        Js.to_bool logement##.estEhpadOuMaisonAutonomieL31312Asf;
      mode_occupation = mode_occupation_of_jsoo logement##.modeOccupation;
      proprietaire = parent_ou_autre_of_jsoo logement##.proprietaire;
      loue_ou_sous_loue_a_des_tiers =
        loue_ou_sous_loue_a_des_tiers_of_jsoo
          logement##.loueOuSousLoueADesTiers;
      usufruit = parent_ou_autre_of_jsoo logement##.usufruit;
      logement_decent_l89_462 = Js.to_bool logement##.logementDecentL89462;
      surface_m_carres = integer_of_int logement##.surfaceMCarres;
      zone = zone_d_habitation_of_jsoo logement##.zone
    }

class type menage =
  object
    method prestationsRecues:
      prestation_recue Js.t Js.js_array Js.t Js.readonly_prop
    method logement: logement Js.t Js.readonly_prop
    method personnesACharge:
      personne_a_charge Js.t Js.js_array Js.t Js.readonly_prop
    method nombreAutresOccupantsLogement: int Js.readonly_prop
    method situationFamiliale: situation_familiale Js.t Js.readonly_prop
    method conditionRattacheFoyerFiscalParentIfi: bool Js.t Js.readonly_prop
    method enfantANaitreApresQuatriemeMoisGrossesse:
      bool Js.t Js.readonly_prop
  end
  let menage_to_jsoo (menage : Menage.t) : menage Js.t =
    object%js
      val prestationsRecues =
        Js.array @@ Array.map (fun x -> prestation_recue_to_jsoo x) menage.prestations_recues
      val logement = logement_to_jsoo menage.logement
      val personnesACharge =
        Js.array @@ Array.map (fun x -> personne_a_charge_to_jsoo x) menage.personnes_a_charge
      val nombreAutresOccupantsLogement =
        integer_to_int menage.nombre_autres_occupants_logement
      val situationFamiliale =
        situation_familiale_to_jsoo menage.situation_familiale
      val conditionRattacheFoyerFiscalParentIfi =
        Js.bool menage.condition_rattache_foyer_fiscal_parent_ifi
      val enfantANaitreApresQuatriemeMoisGrossesse =
        Js.bool menage.enfant_a_naitre_apres_quatrieme_mois_grossesse
      end
  let menage_of_jsoo (menage : menage Js.t) : Menage.t =
    {
      prestations_recues =
        Array.map (fun x -> prestation_recue_of_jsoo x) @@ Js.to_array
          menage##.prestationsRecues;
      logement = logement_of_jsoo menage##.logement;
      personnes_a_charge =
        Array.map (fun x -> personne_a_charge_of_jsoo x) @@ Js.to_array
          menage##.personnesACharge;
      nombre_autres_occupants_logement =
        integer_of_int menage##.nombreAutresOccupantsLogement;
      situation_familiale =
        situation_familiale_of_jsoo menage##.situationFamiliale;
      condition_rattache_foyer_fiscal_parent_ifi =
        Js.to_bool menage##.conditionRattacheFoyerFiscalParentIfi;
      enfant_a_naitre_apres_quatrieme_mois_grossesse =
        Js.to_bool menage##.enfantANaitreApresQuatriemeMoisGrossesse
    }

class type eligibilite_aides_personnelle_logement_out =
  object
    method dateCouranteOut: Js.js_string Js.t Js.readonly_prop
    method eligibiliteOut: bool Js.t Js.readonly_prop
    method nombrePersonnesAChargePrisesEnCompteOut: int Js.readonly_prop
    method coefficentsEnfantsGardeAlterneePrisEnCompteOut:
      Js.number Js.t Js.js_array Js.t Js.readonly_prop
    method condition2R8234Out:
      (personne_a_charge Js.t,  bool Js.t) Js.meth_callback Js.meth
  end
  let eligibilite_aides_personnelle_logement_out_to_jsoo
    (eligibilite_aides_personnelle_logement_out
    : EligibiliteAidesPersonnelleLogementOut.t)
    : eligibilite_aides_personnelle_logement_out Js.t =
    object%js
      val dateCouranteOut =
        date_to_jsoo eligibilite_aides_personnelle_logement_out.date_courante_out
      val eligibiliteOut =
        Js.bool eligibilite_aides_personnelle_logement_out.eligibilite_out
      val nombrePersonnesAChargePrisesEnCompteOut =
        integer_to_int eligibilite_aides_personnelle_logement_out.nombre_personnes_a_charge_prises_en_compte_out
      val coefficentsEnfantsGardeAlterneePrisEnCompteOut =
        Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) eligibilite_aides_personnelle_logement_out.coefficents_enfants_garde_alternee_pris_en_compte_out
      method condition2R8234Out = Js.wrap_meth_callback
        (
          fun input ->
          Js.bool (eligibilite_aides_personnelle_logement_out.condition_2_r823_4_out (personne_a_charge_of_jsoo input)))
      end
  let eligibilite_aides_personnelle_logement_out_of_jsoo
    (eligibilite_aides_personnelle_logement_out
      : eligibilite_aides_personnelle_logement_out Js.t) :
    EligibiliteAidesPersonnelleLogementOut.t =
    {
      date_courante_out =
        date_of_jsoo
          eligibilite_aides_personnelle_logement_out##.dateCouranteOut;
      eligibilite_out =
        Js.to_bool
          eligibilite_aides_personnelle_logement_out##.eligibiliteOut;
      nombre_personnes_a_charge_prises_en_compte_out =
        integer_of_int
          eligibilite_aides_personnelle_logement_out
          ##.nombrePersonnesAChargePrisesEnCompteOut;
      coefficents_enfants_garde_alternee_pris_en_compte_out =
        Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
          eligibilite_aides_personnelle_logement_out
          ##.coefficentsEnfantsGardeAlterneePrisEnCompteOut;
      condition_2_r823_4_out = failwith "The function 'condition_2_r823_4_out' translation isn't yet supported..."
    }

class type eligibilite_aides_personnelle_logement_in =
  object
    method menageIn: menage Js.t Js.readonly_prop
    method demandeurIn: demandeur Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method conditionLogementResidencePrincipaleIn:
      (unit,  bool Js.t) Js.meth_callback Js.meth
    method conditionLogementSurfaceIn:
      (unit,  bool Js.t) Js.meth_callback Js.meth
  end
  let eligibilite_aides_personnelle_logement_in_to_jsoo
    (eligibilite_aides_personnelle_logement_in
    : EligibiliteAidesPersonnelleLogementIn.t)
    : eligibilite_aides_personnelle_logement_in Js.t =
    object%js
      val menageIn =
        menage_to_jsoo eligibilite_aides_personnelle_logement_in.menage_in
      val demandeurIn =
        demandeur_to_jsoo eligibilite_aides_personnelle_logement_in.demandeur_in
      val dateCouranteIn =
        date_to_jsoo eligibilite_aides_personnelle_logement_in.date_courante_in
      method conditionLogementResidencePrincipaleIn = Js.wrap_meth_callback
        (
          fun input ->
          Js.bool (eligibilite_aides_personnelle_logement_in.condition_logement_residence_principale_in ( input)))
      method conditionLogementSurfaceIn = Js.wrap_meth_callback
        (
          fun input ->
          Js.bool (eligibilite_aides_personnelle_logement_in.condition_logement_surface_in ( input)))
      end
  let eligibilite_aides_personnelle_logement_in_of_jsoo
    (eligibilite_aides_personnelle_logement_in
      : eligibilite_aides_personnelle_logement_in Js.t) :
    EligibiliteAidesPersonnelleLogementIn.t =
    {
      menage_in =
        menage_of_jsoo eligibilite_aides_personnelle_logement_in##.menageIn;
      demandeur_in =
        demandeur_of_jsoo
          eligibilite_aides_personnelle_logement_in##.demandeurIn;
      date_courante_in =
        date_of_jsoo
          eligibilite_aides_personnelle_logement_in##.dateCouranteIn;
      condition_logement_residence_principale_in = failwith "The function 'condition_logement_residence_principale_in' translation isn't yet supported...";
      condition_logement_surface_in = failwith "The function 'condition_logement_surface_in' translation isn't yet supported..."
    }

class type eligibilite_aide_personnalisee_logement_out =
  object
    method dateCouranteOut: Js.js_string Js.t Js.readonly_prop
    method eligibiliteOut: bool Js.t Js.readonly_prop
    method nombrePersonnesAChargePrisesEnCompteOut: int Js.readonly_prop
    method coefficentsEnfantsGardeAlterneePrisEnCompteOut:
      Js.number Js.t Js.js_array Js.t Js.readonly_prop
  end
  let eligibilite_aide_personnalisee_logement_out_to_jsoo
    (eligibilite_aide_personnalisee_logement_out
    : EligibiliteAidePersonnaliseeLogementOut.t)
    : eligibilite_aide_personnalisee_logement_out Js.t =
    object%js
      val dateCouranteOut =
        date_to_jsoo eligibilite_aide_personnalisee_logement_out.date_courante_out
      val eligibiliteOut =
        Js.bool eligibilite_aide_personnalisee_logement_out.eligibilite_out
      val nombrePersonnesAChargePrisesEnCompteOut =
        integer_to_int eligibilite_aide_personnalisee_logement_out.nombre_personnes_a_charge_prises_en_compte_out
      val coefficentsEnfantsGardeAlterneePrisEnCompteOut =
        Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) eligibilite_aide_personnalisee_logement_out.coefficents_enfants_garde_alternee_pris_en_compte_out
      end
  let eligibilite_aide_personnalisee_logement_out_of_jsoo
    (eligibilite_aide_personnalisee_logement_out
      : eligibilite_aide_personnalisee_logement_out Js.t) :
    EligibiliteAidePersonnaliseeLogementOut.t =
    {
      date_courante_out =
        date_of_jsoo
          eligibilite_aide_personnalisee_logement_out##.dateCouranteOut;
      eligibilite_out =
        Js.to_bool
          eligibilite_aide_personnalisee_logement_out##.eligibiliteOut;
      nombre_personnes_a_charge_prises_en_compte_out =
        integer_of_int
          eligibilite_aide_personnalisee_logement_out
          ##.nombrePersonnesAChargePrisesEnCompteOut;
      coefficents_enfants_garde_alternee_pris_en_compte_out =
        Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
          eligibilite_aide_personnalisee_logement_out
          ##.coefficentsEnfantsGardeAlterneePrisEnCompteOut
    }

class type eligibilite_aide_personnalisee_logement_in =
  object
    method menageIn: menage Js.t Js.readonly_prop
    method demandeurIn: demandeur Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
  end
  let eligibilite_aide_personnalisee_logement_in_to_jsoo
    (eligibilite_aide_personnalisee_logement_in
    : EligibiliteAidePersonnaliseeLogementIn.t)
    : eligibilite_aide_personnalisee_logement_in Js.t =
    object%js
      val menageIn =
        menage_to_jsoo eligibilite_aide_personnalisee_logement_in.menage_in
      val demandeurIn =
        demandeur_to_jsoo eligibilite_aide_personnalisee_logement_in.demandeur_in
      val dateCouranteIn =
        date_to_jsoo eligibilite_aide_personnalisee_logement_in.date_courante_in
      end
  let eligibilite_aide_personnalisee_logement_in_of_jsoo
    (eligibilite_aide_personnalisee_logement_in
      : eligibilite_aide_personnalisee_logement_in Js.t) :
    EligibiliteAidePersonnaliseeLogementIn.t =
    {
      menage_in =
        menage_of_jsoo eligibilite_aide_personnalisee_logement_in##.menageIn;
      demandeur_in =
        demandeur_of_jsoo
          eligibilite_aide_personnalisee_logement_in##.demandeurIn;
      date_courante_in =
        date_of_jsoo
          eligibilite_aide_personnalisee_logement_in##.dateCouranteIn
    }

class type eligibilite_allocation_logement_out =
  object
    method eligibiliteL8412Out:
      eligibilite_allocation_logement Js.t Js.readonly_prop
    method nombrePersonnesAChargePrisesEnCompteOut: int Js.readonly_prop
    method coefficentsEnfantsGardeAlterneePrisEnCompteOut:
      Js.number Js.t Js.js_array Js.t Js.readonly_prop
  end
  let eligibilite_allocation_logement_out_to_jsoo
    (eligibilite_allocation_logement_out
    : EligibiliteAllocationLogementOut.t)
    : eligibilite_allocation_logement_out Js.t =
    object%js
      val eligibiliteL8412Out =
        eligibilite_allocation_logement_to_jsoo eligibilite_allocation_logement_out.eligibilite_l841_2_out
      val nombrePersonnesAChargePrisesEnCompteOut =
        integer_to_int eligibilite_allocation_logement_out.nombre_personnes_a_charge_prises_en_compte_out
      val coefficentsEnfantsGardeAlterneePrisEnCompteOut =
        Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) eligibilite_allocation_logement_out.coefficents_enfants_garde_alternee_pris_en_compte_out
      end
  let eligibilite_allocation_logement_out_of_jsoo
    (eligibilite_allocation_logement_out
      : eligibilite_allocation_logement_out Js.t) :
    EligibiliteAllocationLogementOut.t =
    {
      eligibilite_l841_2_out =
        eligibilite_allocation_logement_of_jsoo
          eligibilite_allocation_logement_out##.eligibiliteL8412Out;
      nombre_personnes_a_charge_prises_en_compte_out =
        integer_of_int
          eligibilite_allocation_logement_out
          ##.nombrePersonnesAChargePrisesEnCompteOut;
      coefficents_enfants_garde_alternee_pris_en_compte_out =
        Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
          eligibilite_allocation_logement_out
          ##.coefficentsEnfantsGardeAlterneePrisEnCompteOut
    }

class type eligibilite_allocation_logement_in =
  object
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method menageIn: menage Js.t Js.readonly_prop
    method demandeurIn: demandeur Js.t Js.readonly_prop
    method beneficieAidePersonnaliseeLogementIn: bool Js.t Js.readonly_prop
  end
  let eligibilite_allocation_logement_in_to_jsoo
    (eligibilite_allocation_logement_in : EligibiliteAllocationLogementIn.t)
    : eligibilite_allocation_logement_in Js.t =
    object%js
      val dateCouranteIn =
        date_to_jsoo eligibilite_allocation_logement_in.date_courante_in
      val menageIn =
        menage_to_jsoo eligibilite_allocation_logement_in.menage_in
      val demandeurIn =
        demandeur_to_jsoo eligibilite_allocation_logement_in.demandeur_in
      val beneficieAidePersonnaliseeLogementIn =
        Js.bool eligibilite_allocation_logement_in.beneficie_aide_personnalisee_logement_in
      end
  let eligibilite_allocation_logement_in_of_jsoo
    (eligibilite_allocation_logement_in
      : eligibilite_allocation_logement_in Js.t) :
    EligibiliteAllocationLogementIn.t =
    {
      date_courante_in =
        date_of_jsoo eligibilite_allocation_logement_in##.dateCouranteIn;
      menage_in =
        menage_of_jsoo eligibilite_allocation_logement_in##.menageIn;
      demandeur_in =
        demandeur_of_jsoo eligibilite_allocation_logement_in##.demandeurIn;
      beneficie_aide_personnalisee_logement_in =
        Js.to_bool
          eligibilite_allocation_logement_in
          ##.beneficieAidePersonnaliseeLogementIn
    }

class type eligibilite_prime_de_demenagement_out =
  object method montantPrimeDemenagementOut: Js.number Js.t Js.readonly_prop
  end
  let eligibilite_prime_de_demenagement_out_to_jsoo
    (eligibilite_prime_de_demenagement_out
    : EligibilitePrimeDeDemenagementOut.t)
    : eligibilite_prime_de_demenagement_out Js.t =
    object%js
      val montantPrimeDemenagementOut =
        Js.number_of_float @@ money_to_float eligibilite_prime_de_demenagement_out.montant_prime_demenagement_out
      end
  let eligibilite_prime_de_demenagement_out_of_jsoo
    (eligibilite_prime_de_demenagement_out
      : eligibilite_prime_de_demenagement_out Js.t) :
    EligibilitePrimeDeDemenagementOut.t =
    {
      montant_prime_demenagement_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          eligibilite_prime_de_demenagement_out##.montantPrimeDemenagementOut
    }

class type eligibilite_prime_de_demenagement_in =
  object
    method informationsIn:
      informations_prime_de_demenagement Js.t Js.readonly_prop
    method dateEmmenagementIn: Js.js_string Js.t Js.readonly_prop
    method menageIn: menage Js.t Js.readonly_prop
    method demandeurIn: demandeur Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method depensesJustifieesReellementEngageesIn:
      Js.number Js.t Js.readonly_prop
  end
  let eligibilite_prime_de_demenagement_in_to_jsoo
    (eligibilite_prime_de_demenagement_in
    : EligibilitePrimeDeDemenagementIn.t)
    : eligibilite_prime_de_demenagement_in Js.t =
    object%js
      val informationsIn =
        informations_prime_de_demenagement_to_jsoo eligibilite_prime_de_demenagement_in.informations_in
      val dateEmmenagementIn =
        date_to_jsoo eligibilite_prime_de_demenagement_in.date_emmenagement_in
      val menageIn =
        menage_to_jsoo eligibilite_prime_de_demenagement_in.menage_in
      val demandeurIn =
        demandeur_to_jsoo eligibilite_prime_de_demenagement_in.demandeur_in
      val dateCouranteIn =
        date_to_jsoo eligibilite_prime_de_demenagement_in.date_courante_in
      val depensesJustifieesReellementEngageesIn =
        Js.number_of_float @@ money_to_float eligibilite_prime_de_demenagement_in.depenses_justifiees_reellement_engagees_in
      end
  let eligibilite_prime_de_demenagement_in_of_jsoo
    (eligibilite_prime_de_demenagement_in
      : eligibilite_prime_de_demenagement_in Js.t) :
    EligibilitePrimeDeDemenagementIn.t =
    {
      informations_in =
        informations_prime_de_demenagement_of_jsoo
          eligibilite_prime_de_demenagement_in##.informationsIn;
      date_emmenagement_in =
        date_of_jsoo
          eligibilite_prime_de_demenagement_in##.dateEmmenagementIn;
      menage_in =
        menage_of_jsoo eligibilite_prime_de_demenagement_in##.menageIn;
      demandeur_in =
        demandeur_of_jsoo eligibilite_prime_de_demenagement_in##.demandeurIn;
      date_courante_in =
        date_of_jsoo eligibilite_prime_de_demenagement_in##.dateCouranteIn;
      depenses_justifiees_reellement_engagees_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          eligibilite_prime_de_demenagement_in
          ##.depensesJustifieesReellementEngageesIn
    }

class type ressources_aides_personnelle_logement_out =
  object method ressourcesPrisesEnCompteOut: Js.number Js.t Js.readonly_prop
  end
  let ressources_aides_personnelle_logement_out_to_jsoo
    (ressources_aides_personnelle_logement_out
    : RessourcesAidesPersonnelleLogementOut.t)
    : ressources_aides_personnelle_logement_out Js.t =
    object%js
      val ressourcesPrisesEnCompteOut =
        Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_out.ressources_prises_en_compte_out
      end
  let ressources_aides_personnelle_logement_out_of_jsoo
    (ressources_aides_personnelle_logement_out
      : ressources_aides_personnelle_logement_out Js.t) :
    RessourcesAidesPersonnelleLogementOut.t =
    {
      ressources_prises_en_compte_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          ressources_aides_personnelle_logement_out
          ##.ressourcesPrisesEnCompteOut
    }

class type ressources_aides_personnelle_logement_in =
  object
    method ressourcesDemandeurIn: Js.number Js.t Js.readonly_prop
    method ressourcesConjointIn: Js.number Js.t Js.readonly_prop
    method personnesVivantHabituellementFoyerIn:
      personne_vivant_habituellement_au_foyer Js.t Js.js_array Js.t Js.readonly_prop
    method demandeurExerceActiviteRemunereeIn: bool Js.t Js.readonly_prop
    method conjointExerceActiviteRemunereeIn: bool Js.t Js.readonly_prop
    method personnesAChargeIn:
      personne_a_charge Js.t Js.js_array Js.t Js.readonly_prop
    method situationFamilialeIn: situation_familiale Js.t Js.readonly_prop
    method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
    method conditionAgeBourseEnseignementSuperieurIn:
      bool Js.t Js.readonly_prop
    method demandeurPoursuitDesEtudesIn: bool Js.t Js.readonly_prop
    method dateDemandeOuReexamenDroitIn: Js.js_string Js.t Js.readonly_prop
    method paiementLogementDistinctProfessionnelIn:
      paiement_logement_distinct_professionnel Js.t Js.readonly_prop
    method ressourcesMenageArrondiesBaseIn: Js.number Js.t Js.readonly_prop
  end
  let ressources_aides_personnelle_logement_in_to_jsoo
    (ressources_aides_personnelle_logement_in
    : RessourcesAidesPersonnelleLogementIn.t)
    : ressources_aides_personnelle_logement_in Js.t =
    object%js
      val ressourcesDemandeurIn =
        Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_in.ressources_demandeur_in
      val ressourcesConjointIn =
        Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_in.ressources_conjoint_in
      val personnesVivantHabituellementFoyerIn =
        Js.array @@ Array.map (fun x -> personne_vivant_habituellement_au_foyer_to_jsoo x) ressources_aides_personnelle_logement_in.personnes_vivant_habituellement_foyer_in
      val demandeurExerceActiviteRemunereeIn =
        Js.bool ressources_aides_personnelle_logement_in.demandeur_exerce_activite_remuneree_in
      val conjointExerceActiviteRemunereeIn =
        Js.bool ressources_aides_personnelle_logement_in.conjoint_exerce_activite_remuneree_in
      val personnesAChargeIn =
        Js.array @@ Array.map (fun x -> personne_a_charge_to_jsoo x) ressources_aides_personnelle_logement_in.personnes_a_charge_in
      val situationFamilialeIn =
        situation_familiale_to_jsoo ressources_aides_personnelle_logement_in.situation_familiale_in
      val modeOccupationIn =
        mode_occupation_to_jsoo ressources_aides_personnelle_logement_in.mode_occupation_in
      val conditionAgeBourseEnseignementSuperieurIn =
        Js.bool ressources_aides_personnelle_logement_in.condition_age_bourse_enseignement_superieur_in
      val demandeurPoursuitDesEtudesIn =
        Js.bool ressources_aides_personnelle_logement_in.demandeur_poursuit_des_etudes_in
      val dateDemandeOuReexamenDroitIn =
        date_to_jsoo ressources_aides_personnelle_logement_in.date_demande_ou_reexamen_droit_in
      val paiementLogementDistinctProfessionnelIn =
        paiement_logement_distinct_professionnel_to_jsoo ressources_aides_personnelle_logement_in.paiement_logement_distinct_professionnel_in
      val ressourcesMenageArrondiesBaseIn =
        Js.number_of_float @@ money_to_float ressources_aides_personnelle_logement_in.ressources_menage_arrondies_base_in
      end
  let ressources_aides_personnelle_logement_in_of_jsoo
    (ressources_aides_personnelle_logement_in
      : ressources_aides_personnelle_logement_in Js.t) :
    RessourcesAidesPersonnelleLogementIn.t =
    {
      ressources_demandeur_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          ressources_aides_personnelle_logement_in##.ressourcesDemandeurIn;
      ressources_conjoint_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          ressources_aides_personnelle_logement_in##.ressourcesConjointIn;
      personnes_vivant_habituellement_foyer_in =
        Array.map (fun x -> personne_vivant_habituellement_au_foyer_of_jsoo x) @@ Js.to_array
          ressources_aides_personnelle_logement_in
          ##.personnesVivantHabituellementFoyerIn;
      demandeur_exerce_activite_remuneree_in =
        Js.to_bool
          ressources_aides_personnelle_logement_in
          ##.demandeurExerceActiviteRemunereeIn;
      conjoint_exerce_activite_remuneree_in =
        Js.to_bool
          ressources_aides_personnelle_logement_in
          ##.conjointExerceActiviteRemunereeIn;
      personnes_a_charge_in =
        Array.map (fun x -> personne_a_charge_of_jsoo x) @@ Js.to_array
          ressources_aides_personnelle_logement_in##.personnesAChargeIn;
      situation_familiale_in =
        situation_familiale_of_jsoo
          ressources_aides_personnelle_logement_in##.situationFamilialeIn;
      mode_occupation_in =
        mode_occupation_of_jsoo
          ressources_aides_personnelle_logement_in##.modeOccupationIn;
      condition_age_bourse_enseignement_superieur_in =
        Js.to_bool
          ressources_aides_personnelle_logement_in
          ##.conditionAgeBourseEnseignementSuperieurIn;
      demandeur_poursuit_des_etudes_in =
        Js.to_bool
          ressources_aides_personnelle_logement_in
          ##.demandeurPoursuitDesEtudesIn;
      date_demande_ou_reexamen_droit_in =
        date_of_jsoo
          ressources_aides_personnelle_logement_in
          ##.dateDemandeOuReexamenDroitIn;
      paiement_logement_distinct_professionnel_in =
        paiement_logement_distinct_professionnel_of_jsoo
          ressources_aides_personnelle_logement_in
          ##.paiementLogementDistinctProfessionnelIn;
      ressources_menage_arrondies_base_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          ressources_aides_personnelle_logement_in
          ##.ressourcesMenageArrondiesBaseIn
    }

class type contributions_sociales_aides_personnelle_logement_out =
  object
    method montantOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let contributions_sociales_aides_personnelle_logement_out_to_jsoo
    (contributions_sociales_aides_personnelle_logement_out
    : ContributionsSocialesAidesPersonnelleLogementOut.t)
    : contributions_sociales_aides_personnelle_logement_out Js.t =
    object%js
      method montantOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (contributions_sociales_aides_personnelle_logement_out.montant_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let contributions_sociales_aides_personnelle_logement_out_of_jsoo
    (contributions_sociales_aides_personnelle_logement_out
      : contributions_sociales_aides_personnelle_logement_out Js.t) :
    ContributionsSocialesAidesPersonnelleLogementOut.t =
    {
      montant_out = failwith "The function 'montant_out' translation isn't yet supported..."
    }

class type contributions_sociales_aides_personnelle_logement_in =
  object method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
  end
  let contributions_sociales_aides_personnelle_logement_in_to_jsoo
    (contributions_sociales_aides_personnelle_logement_in
    : ContributionsSocialesAidesPersonnelleLogementIn.t)
    : contributions_sociales_aides_personnelle_logement_in Js.t =
    object%js
      val dateCouranteIn =
        date_to_jsoo contributions_sociales_aides_personnelle_logement_in.date_courante_in
      end
  let contributions_sociales_aides_personnelle_logement_in_of_jsoo
    (contributions_sociales_aides_personnelle_logement_in
      : contributions_sociales_aides_personnelle_logement_in Js.t) :
    ContributionsSocialesAidesPersonnelleLogementIn.t =
    {
      date_courante_in =
        date_of_jsoo
          contributions_sociales_aides_personnelle_logement_in
          ##.dateCouranteIn
    }

class type calcul_aide_personnalisee_logement_locatif_out =
  object
    method montantForfaitaireChargesD82316Out:
      Js.number Js.t Js.readonly_prop
    method plafondLoyerD823162Out: Js.number Js.t Js.readonly_prop
    method participationMinimaleOut: Js.number Js.t Js.readonly_prop
    method tauxCompositionFamilialeOut: Js.number Js.t Js.readonly_prop
    method participationPersonnelleOut: Js.number Js.t Js.readonly_prop
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleMontantMinimalOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_aide_personnalisee_logement_locatif_out_to_jsoo
    (calcul_aide_personnalisee_logement_locatif_out
    : CalculAidePersonnaliseeLogementLocatifOut.t)
    : calcul_aide_personnalisee_logement_locatif_out Js.t =
    object%js
      val montantForfaitaireChargesD82316Out =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_out.montant_forfaitaire_charges_d823_16_out
      val plafondLoyerD823162Out =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_out.plafond_loyer_d823_16_2_out
      val participationMinimaleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_out.participation_minimale_out
      val tauxCompositionFamilialeOut =
        Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_locatif_out.taux_composition_familiale_out
      val participationPersonnelleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_out.participation_personnelle_out
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_out.aide_finale_formule_out
      method traitementAideFinaleMontantMinimalOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_locatif_out.traitement_aide_finale_montant_minimal_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_aide_personnalisee_logement_locatif_out_of_jsoo
    (calcul_aide_personnalisee_logement_locatif_out
      : calcul_aide_personnalisee_logement_locatif_out Js.t) :
    CalculAidePersonnaliseeLogementLocatifOut.t =
    {
      montant_forfaitaire_charges_d823_16_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_out
          ##.montantForfaitaireChargesD82316Out;
      plafond_loyer_d823_16_2_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_out
          ##.plafondLoyerD823162Out;
      participation_minimale_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_out
          ##.participationMinimaleOut;
      taux_composition_familiale_out =
        decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_out
          ##.tauxCompositionFamilialeOut;
      participation_personnelle_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_out
          ##.participationPersonnelleOut;
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_out
          ##.aideFinaleFormuleOut;
      traitement_aide_finale_montant_minimal_out = failwith "The function 'traitement_aide_finale_montant_minimal_out' translation isn't yet supported..."
    }

class type calcul_aide_personnalisee_logement_locatif_in =
  object
    method loyerPrincipalBaseIn: Js.number Js.t Js.readonly_prop
    method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
    method beneficiaireAideAdulteOuEnfantHandicapesIn:
      bool Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method logementEstChambreIn: bool Js.t Js.readonly_prop
    method ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn:
      bool Js.t Js.readonly_prop
    method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
    method colocationIn: bool Js.t Js.readonly_prop
    method reductionLoyerSolidariteIn: Js.number Js.t Js.readonly_prop
    method logementMeubleD8422In: bool Js.t Js.readonly_prop
  end
  let calcul_aide_personnalisee_logement_locatif_in_to_jsoo
    (calcul_aide_personnalisee_logement_locatif_in
    : CalculAidePersonnaliseeLogementLocatifIn.t)
    : calcul_aide_personnalisee_logement_locatif_in Js.t =
    object%js
      val loyerPrincipalBaseIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_in.loyer_principal_base_in
      val ressourcesMenageArrondiesIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_in.ressources_menage_arrondies_in
      val beneficiaireAideAdulteOuEnfantHandicapesIn =
        Js.bool calcul_aide_personnalisee_logement_locatif_in.beneficiaire_aide_adulte_ou_enfant_handicapes_in
      val dateCouranteIn =
        date_to_jsoo calcul_aide_personnalisee_logement_locatif_in.date_courante_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_aide_personnalisee_logement_locatif_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_aide_personnalisee_logement_locatif_in.situation_familiale_calcul_apl_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_locatif_in.zone_in
      val logementEstChambreIn =
        Js.bool calcul_aide_personnalisee_logement_locatif_in.logement_est_chambre_in
      val ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn =
        Js.bool calcul_aide_personnalisee_logement_locatif_in.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in
      val typeAideIn =
        type_aides_personnelle_logement_to_jsoo calcul_aide_personnalisee_logement_locatif_in.type_aide_in
      val colocationIn =
        Js.bool calcul_aide_personnalisee_logement_locatif_in.colocation_in
      val reductionLoyerSolidariteIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_locatif_in.reduction_loyer_solidarite_in
      val logementMeubleD8422In =
        Js.bool calcul_aide_personnalisee_logement_locatif_in.logement_meuble_d842_2_in
      end
  let calcul_aide_personnalisee_logement_locatif_in_of_jsoo
    (calcul_aide_personnalisee_logement_locatif_in
      : calcul_aide_personnalisee_logement_locatif_in Js.t) :
    CalculAidePersonnaliseeLogementLocatifIn.t =
    {
      loyer_principal_base_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_in
          ##.loyerPrincipalBaseIn;
      ressources_menage_arrondies_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_in
          ##.ressourcesMenageArrondiesIn;
      beneficiaire_aide_adulte_ou_enfant_handicapes_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_locatif_in
          ##.beneficiaireAideAdulteOuEnfantHandicapesIn;
      date_courante_in =
        date_of_jsoo
          calcul_aide_personnalisee_logement_locatif_in##.dateCouranteIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_aide_personnalisee_logement_locatif_in
          ##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_aide_personnalisee_logement_locatif_in
          ##.situationFamilialeCalculAplIn;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_aide_personnalisee_logement_locatif_in##.zoneIn;
      logement_est_chambre_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_locatif_in
          ##.logementEstChambreIn;
      agees_ou_handicap_adultes_hebergees_onereux_particuliers_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_locatif_in
          ##.ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn;
      type_aide_in =
        type_aides_personnelle_logement_of_jsoo
          calcul_aide_personnalisee_logement_locatif_in##.typeAideIn;
      colocation_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_locatif_in##.colocationIn;
      reduction_loyer_solidarite_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_locatif_in
          ##.reductionLoyerSolidariteIn;
      logement_meuble_d842_2_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_locatif_in
          ##.logementMeubleD8422In
    }

class type calcul_equivalence_loyer_minimale_out =
  object method montantOut: Js.number Js.t Js.readonly_prop
  end
  let calcul_equivalence_loyer_minimale_out_to_jsoo
    (calcul_equivalence_loyer_minimale_out
    : CalculEquivalenceLoyerMinimaleOut.t)
    : calcul_equivalence_loyer_minimale_out Js.t =
    object%js
      val montantOut =
        Js.number_of_float @@ money_to_float calcul_equivalence_loyer_minimale_out.montant_out
      end
  let calcul_equivalence_loyer_minimale_out_of_jsoo
    (calcul_equivalence_loyer_minimale_out
      : calcul_equivalence_loyer_minimale_out Js.t) :
    CalculEquivalenceLoyerMinimaleOut.t =
    {
      montant_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_equivalence_loyer_minimale_out##.montantOut
    }

class type calcul_equivalence_loyer_minimale_in =
  object
    method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
    method condition2Du83225In: bool Js.t Js.readonly_prop
    method nNombrePartsD83225In: Js.number Js.t Js.readonly_prop
  end
  let calcul_equivalence_loyer_minimale_in_to_jsoo
    (calcul_equivalence_loyer_minimale_in
    : CalculEquivalenceLoyerMinimaleIn.t)
    : calcul_equivalence_loyer_minimale_in Js.t =
    object%js
      val ressourcesMenageArrondiesIn =
        Js.number_of_float @@ money_to_float calcul_equivalence_loyer_minimale_in.ressources_menage_arrondies_in
      val condition2Du83225In =
        Js.bool calcul_equivalence_loyer_minimale_in.condition_2_du_832_25_in
      val nNombrePartsD83225In =
        Js.number_of_float @@ decimal_to_float calcul_equivalence_loyer_minimale_in.n_nombre_parts_d832_25_in
      end
  let calcul_equivalence_loyer_minimale_in_of_jsoo
    (calcul_equivalence_loyer_minimale_in
      : calcul_equivalence_loyer_minimale_in Js.t) :
    CalculEquivalenceLoyerMinimaleIn.t =
    {
      ressources_menage_arrondies_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_equivalence_loyer_minimale_in##.ressourcesMenageArrondiesIn;
      condition_2_du_832_25_in =
        Js.to_bool calcul_equivalence_loyer_minimale_in##.condition2Du83225In;
      n_nombre_parts_d832_25_in =
        decimal_of_float @@ Js.float_of_number
          calcul_equivalence_loyer_minimale_in##.nNombrePartsD83225In
    }

class type calcul_nombre_part_logement_foyer_out =
  object method nNombrePartsD83225Out: Js.number Js.t Js.readonly_prop
  end
  let calcul_nombre_part_logement_foyer_out_to_jsoo
    (calcul_nombre_part_logement_foyer_out
    : CalculNombrePartLogementFoyerOut.t)
    : calcul_nombre_part_logement_foyer_out Js.t =
    object%js
      val nNombrePartsD83225Out =
        Js.number_of_float @@ decimal_to_float calcul_nombre_part_logement_foyer_out.n_nombre_parts_d832_25_out
      end
  let calcul_nombre_part_logement_foyer_out_of_jsoo
    (calcul_nombre_part_logement_foyer_out
      : calcul_nombre_part_logement_foyer_out Js.t) :
    CalculNombrePartLogementFoyerOut.t =
    {
      n_nombre_parts_d832_25_out =
        decimal_of_float @@ Js.float_of_number
          calcul_nombre_part_logement_foyer_out##.nNombrePartsD83225Out
    }

class type calcul_nombre_part_logement_foyer_in =
  object
    method condition2Du83225In: bool Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
  end
  let calcul_nombre_part_logement_foyer_in_to_jsoo
    (calcul_nombre_part_logement_foyer_in
    : CalculNombrePartLogementFoyerIn.t)
    : calcul_nombre_part_logement_foyer_in Js.t =
    object%js
      val condition2Du83225In =
        Js.bool calcul_nombre_part_logement_foyer_in.condition_2_du_832_25_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_nombre_part_logement_foyer_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_nombre_part_logement_foyer_in.situation_familiale_calcul_apl_in
      end
  let calcul_nombre_part_logement_foyer_in_of_jsoo
    (calcul_nombre_part_logement_foyer_in
      : calcul_nombre_part_logement_foyer_in Js.t) :
    CalculNombrePartLogementFoyerIn.t =
    {
      condition_2_du_832_25_in =
        Js.to_bool calcul_nombre_part_logement_foyer_in##.condition2Du83225In;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_nombre_part_logement_foyer_in##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_nombre_part_logement_foyer_in
          ##.situationFamilialeCalculAplIn
    }

class type calcul_aide_personnalisee_logement_foyer_out =
  object
    method coefficientMultiplicateurD83225Out:
      Js.number Js.t Js.readonly_prop
    method coefficientRD83225Out: Js.number Js.t Js.readonly_prop
    method nNombrePartsD83225Out: Js.number Js.t Js.readonly_prop
    method equivalenceLoyerEligibleOut: Js.number Js.t Js.readonly_prop
    method plafondEquivalenceLoyerEligibleOut:
      Js.number Js.t Js.readonly_prop
    method equivalenceLoyerMinimaleOut: Js.number Js.t Js.readonly_prop
    method coefficientPriseEnChargeD83225SeuilOut:
      Js.number Js.t Js.readonly_prop
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleMontantMinimalOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_aide_personnalisee_logement_foyer_out_to_jsoo
    (calcul_aide_personnalisee_logement_foyer_out
    : CalculAidePersonnaliseeLogementFoyerOut.t)
    : calcul_aide_personnalisee_logement_foyer_out Js.t =
    object%js
      val coefficientMultiplicateurD83225Out =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_out.coefficient_multiplicateur_d832_25_out
      val coefficientRD83225Out =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_out.coefficient_r_d832_25_out
      val nNombrePartsD83225Out =
        Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_foyer_out.n_nombre_parts_d832_25_out
      val equivalenceLoyerEligibleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_out.equivalence_loyer_eligible_out
      val plafondEquivalenceLoyerEligibleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_out.plafond_equivalence_loyer_eligible_out
      val equivalenceLoyerMinimaleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_out.equivalence_loyer_minimale_out
      val coefficientPriseEnChargeD83225SeuilOut =
        Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_foyer_out.coefficient_prise_en_charge_d832_25_seuil_out
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_out.aide_finale_formule_out
      method traitementAideFinaleMontantMinimalOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_foyer_out.traitement_aide_finale_montant_minimal_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_aide_personnalisee_logement_foyer_out_of_jsoo
    (calcul_aide_personnalisee_logement_foyer_out
      : calcul_aide_personnalisee_logement_foyer_out Js.t) :
    CalculAidePersonnaliseeLogementFoyerOut.t =
    {
      coefficient_multiplicateur_d832_25_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.coefficientMultiplicateurD83225Out;
      coefficient_r_d832_25_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.coefficientRD83225Out;
      n_nombre_parts_d832_25_out =
        decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.nNombrePartsD83225Out;
      equivalence_loyer_eligible_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.equivalenceLoyerEligibleOut;
      plafond_equivalence_loyer_eligible_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.plafondEquivalenceLoyerEligibleOut;
      equivalence_loyer_minimale_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.equivalenceLoyerMinimaleOut;
      coefficient_prise_en_charge_d832_25_seuil_out =
        decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out
          ##.coefficientPriseEnChargeD83225SeuilOut;
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_out##.aideFinaleFormuleOut;
      traitement_aide_finale_montant_minimal_out = failwith "The function 'traitement_aide_finale_montant_minimal_out' translation isn't yet supported..."
    }

class type calcul_aide_personnalisee_logement_foyer_in =
  object
    method typeLogementFoyerIn: type_logement_foyer Js.t Js.readonly_prop
    method dateConventionnementIn: Js.js_string Js.t Js.readonly_prop
    method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method redevanceIn: Js.number Js.t Js.readonly_prop
    method condition2Du83225In: (unit,  bool Js.t) Js.meth_callback Js.meth
    method nNombrePartsD83225In:
      (unit,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_aide_personnalisee_logement_foyer_in_to_jsoo
    (calcul_aide_personnalisee_logement_foyer_in
    : CalculAidePersonnaliseeLogementFoyerIn.t)
    : calcul_aide_personnalisee_logement_foyer_in Js.t =
    object%js
      val typeLogementFoyerIn =
        type_logement_foyer_to_jsoo calcul_aide_personnalisee_logement_foyer_in.type_logement_foyer_in
      val dateConventionnementIn =
        date_to_jsoo calcul_aide_personnalisee_logement_foyer_in.date_conventionnement_in
      val ressourcesMenageArrondiesIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_in.ressources_menage_arrondies_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_aide_personnalisee_logement_foyer_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_aide_personnalisee_logement_foyer_in.situation_familiale_calcul_apl_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_foyer_in.zone_in
      val dateCouranteIn =
        date_to_jsoo calcul_aide_personnalisee_logement_foyer_in.date_courante_in
      val redevanceIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_foyer_in.redevance_in
      method condition2Du83225In = Js.wrap_meth_callback
        (
          fun input ->
          Js.bool (calcul_aide_personnalisee_logement_foyer_in.condition_2_du_832_25_in ( input)))
      method nNombrePartsD83225In = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ decimal_to_float (calcul_aide_personnalisee_logement_foyer_in.n_nombre_parts_d832_25_in ( input)))
      end
  let calcul_aide_personnalisee_logement_foyer_in_of_jsoo
    (calcul_aide_personnalisee_logement_foyer_in
      : calcul_aide_personnalisee_logement_foyer_in Js.t) :
    CalculAidePersonnaliseeLogementFoyerIn.t =
    {
      type_logement_foyer_in =
        type_logement_foyer_of_jsoo
          calcul_aide_personnalisee_logement_foyer_in##.typeLogementFoyerIn;
      date_conventionnement_in =
        date_of_jsoo
          calcul_aide_personnalisee_logement_foyer_in
          ##.dateConventionnementIn;
      ressources_menage_arrondies_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_in
          ##.ressourcesMenageArrondiesIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_aide_personnalisee_logement_foyer_in
          ##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_aide_personnalisee_logement_foyer_in
          ##.situationFamilialeCalculAplIn;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_aide_personnalisee_logement_foyer_in##.zoneIn;
      date_courante_in =
        date_of_jsoo
          calcul_aide_personnalisee_logement_foyer_in##.dateCouranteIn;
      redevance_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_foyer_in##.redevanceIn;
      condition_2_du_832_25_in = failwith "The function 'condition_2_du_832_25_in' translation isn't yet supported...";
      n_nombre_parts_d832_25_in = failwith "The function 'n_nombre_parts_d832_25_in' translation isn't yet supported..."
    }

class type calcul_nombre_parts_accession_propriete_out =
  object method nNombrePartsD83211Out: Js.number Js.t Js.readonly_prop
  end
  let calcul_nombre_parts_accession_propriete_out_to_jsoo
    (calcul_nombre_parts_accession_propriete_out
    : CalculNombrePartsAccessionProprieteOut.t)
    : calcul_nombre_parts_accession_propriete_out Js.t =
    object%js
      val nNombrePartsD83211Out =
        Js.number_of_float @@ decimal_to_float calcul_nombre_parts_accession_propriete_out.n_nombre_parts_d832_11_out
      end
  let calcul_nombre_parts_accession_propriete_out_of_jsoo
    (calcul_nombre_parts_accession_propriete_out
      : calcul_nombre_parts_accession_propriete_out Js.t) :
    CalculNombrePartsAccessionProprieteOut.t =
    {
      n_nombre_parts_d832_11_out =
        decimal_of_float @@ Js.float_of_number
          calcul_nombre_parts_accession_propriete_out##.nNombrePartsD83211Out
    }

class type calcul_nombre_parts_accession_propriete_in =
  object
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
  end
  let calcul_nombre_parts_accession_propriete_in_to_jsoo
    (calcul_nombre_parts_accession_propriete_in
    : CalculNombrePartsAccessionProprieteIn.t)
    : calcul_nombre_parts_accession_propriete_in Js.t =
    object%js
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_nombre_parts_accession_propriete_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_nombre_parts_accession_propriete_in.situation_familiale_calcul_apl_in
      end
  let calcul_nombre_parts_accession_propriete_in_of_jsoo
    (calcul_nombre_parts_accession_propriete_in
      : calcul_nombre_parts_accession_propriete_in Js.t) :
    CalculNombrePartsAccessionProprieteIn.t =
    {
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_nombre_parts_accession_propriete_in
          ##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_nombre_parts_accession_propriete_in
          ##.situationFamilialeCalculAplIn
    }

class type calcul_aide_personnalisee_logement_accession_propriete_out =
  object
    method mensualiteEligibleOut: Js.number Js.t Js.readonly_prop
    method mensualiteMinimaleOut: Js.number Js.t Js.readonly_prop
    method coefficientPriseEnChargeD83210SeuilOut:
      Js.number Js.t Js.readonly_prop
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleMontantMinimalOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_aide_personnalisee_logement_accession_propriete_out_to_jsoo
    (calcul_aide_personnalisee_logement_accession_propriete_out
    : CalculAidePersonnaliseeLogementAccessionProprieteOut.t)
    : calcul_aide_personnalisee_logement_accession_propriete_out Js.t =
    object%js
      val mensualiteEligibleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_out.mensualite_eligible_out
      val mensualiteMinimaleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_out.mensualite_minimale_out
      val coefficientPriseEnChargeD83210SeuilOut =
        Js.number_of_float @@ decimal_to_float calcul_aide_personnalisee_logement_accession_propriete_out.coefficient_prise_en_charge_d832_10_seuil_out
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_out.aide_finale_formule_out
      method traitementAideFinaleMontantMinimalOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_accession_propriete_out.traitement_aide_finale_montant_minimal_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_aide_personnalisee_logement_accession_propriete_out_of_jsoo
    (calcul_aide_personnalisee_logement_accession_propriete_out
      : calcul_aide_personnalisee_logement_accession_propriete_out Js.t) :
    CalculAidePersonnaliseeLogementAccessionProprieteOut.t =
    {
      mensualite_eligible_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_accession_propriete_out
          ##.mensualiteEligibleOut;
      mensualite_minimale_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_accession_propriete_out
          ##.mensualiteMinimaleOut;
      coefficient_prise_en_charge_d832_10_seuil_out =
        decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_accession_propriete_out
          ##.coefficientPriseEnChargeD83210SeuilOut;
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_accession_propriete_out
          ##.aideFinaleFormuleOut;
      traitement_aide_finale_montant_minimal_out = failwith "The function 'traitement_aide_finale_montant_minimal_out' translation isn't yet supported..."
    }

class type calcul_aide_personnalisee_logement_accession_propriete_in =
  object
    method mensualitePrincipaleIn: Js.number Js.t Js.readonly_prop
    method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
    method typeTravauxLogementIn:
      type_travaux_logement_d832_15 Js.t Js.readonly_prop
    method dateSignaturePretIn: Js.js_string Js.t Js.readonly_prop
    method localHabitePremiereFoisBeneficiaireIn: bool Js.t Js.readonly_prop
    method dateEntreeLogementIn: Js.js_string Js.t Js.readonly_prop
    method coproprieteIn: bool Js.t Js.readonly_prop
    method situationR822111317In: bool Js.t Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method typePretIn: type_pret Js.t Js.readonly_prop
    method ancienneteLogementIn: neuf_ou_ancien Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
  end
  let calcul_aide_personnalisee_logement_accession_propriete_in_to_jsoo
    (calcul_aide_personnalisee_logement_accession_propriete_in
    : CalculAidePersonnaliseeLogementAccessionProprieteIn.t)
    : calcul_aide_personnalisee_logement_accession_propriete_in Js.t =
    object%js
      val mensualitePrincipaleIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_in.mensualite_principale_in
      val ressourcesMenageArrondiesIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_accession_propriete_in.ressources_menage_arrondies_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_aide_personnalisee_logement_accession_propriete_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.situation_familiale_calcul_apl_in
      val typeTravauxLogementIn =
        type_travaux_logement_d832_15_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.type_travaux_logement_in
      val dateSignaturePretIn =
        date_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.date_signature_pret_in
      val localHabitePremiereFoisBeneficiaireIn =
        Js.bool calcul_aide_personnalisee_logement_accession_propriete_in.local_habite_premiere_fois_beneficiaire_in
      val dateEntreeLogementIn =
        date_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.date_entree_logement_in
      val coproprieteIn =
        Js.bool calcul_aide_personnalisee_logement_accession_propriete_in.copropriete_in
      val situationR822111317In =
        Js.bool calcul_aide_personnalisee_logement_accession_propriete_in.situation_r822_11_13_17_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.zone_in
      val typePretIn =
        type_pret_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.type_pret_in
      val ancienneteLogementIn =
        neuf_ou_ancien_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.anciennete_logement_in
      val dateCouranteIn =
        date_to_jsoo calcul_aide_personnalisee_logement_accession_propriete_in.date_courante_in
      end
  let calcul_aide_personnalisee_logement_accession_propriete_in_of_jsoo
    (calcul_aide_personnalisee_logement_accession_propriete_in
      : calcul_aide_personnalisee_logement_accession_propriete_in Js.t) :
    CalculAidePersonnaliseeLogementAccessionProprieteIn.t =
    {
      mensualite_principale_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.mensualitePrincipaleIn;
      ressources_menage_arrondies_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.ressourcesMenageArrondiesIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.situationFamilialeCalculAplIn;
      type_travaux_logement_in =
        type_travaux_logement_d832_15_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.typeTravauxLogementIn;
      date_signature_pret_in =
        date_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.dateSignaturePretIn;
      local_habite_premiere_fois_beneficiaire_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.localHabitePremiereFoisBeneficiaireIn;
      date_entree_logement_in =
        date_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.dateEntreeLogementIn;
      copropriete_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.coproprieteIn;
      situation_r822_11_13_17_in =
        Js.to_bool
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.situationR822111317In;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in##.zoneIn;
      type_pret_in =
        type_pret_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.typePretIn;
      anciennete_logement_in =
        neuf_ou_ancien_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.ancienneteLogementIn;
      date_courante_in =
        date_of_jsoo
          calcul_aide_personnalisee_logement_accession_propriete_in
          ##.dateCouranteIn
    }

class type calcul_aide_personnalisee_logement_out =
  object
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_aide_personnalisee_logement_out_to_jsoo
    (calcul_aide_personnalisee_logement_out
    : CalculAidePersonnaliseeLogementOut.t)
    : calcul_aide_personnalisee_logement_out Js.t =
    object%js
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_out.aide_finale_formule_out
      method traitementAideFinaleOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_aide_personnalisee_logement_out.traitement_aide_finale_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_aide_personnalisee_logement_out_of_jsoo
    (calcul_aide_personnalisee_logement_out
      : calcul_aide_personnalisee_logement_out Js.t) :
    CalculAidePersonnaliseeLogementOut.t =
    {
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_out##.aideFinaleFormuleOut;
      traitement_aide_finale_out = failwith "The function 'traitement_aide_finale_out' translation isn't yet supported..."
    }

class type calcul_aide_personnalisee_logement_in =
  object
    method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
    method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
    method ressourcesMenageSansArrondiIn: Js.number Js.t Js.readonly_prop
    method situationFamilialeIn: situation_familiale Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
  end
  let calcul_aide_personnalisee_logement_in_to_jsoo
    (calcul_aide_personnalisee_logement_in
    : CalculAidePersonnaliseeLogementIn.t)
    : calcul_aide_personnalisee_logement_in Js.t =
    object%js
      val modeOccupationIn =
        mode_occupation_to_jsoo calcul_aide_personnalisee_logement_in.mode_occupation_in
      val typeAideIn =
        type_aides_personnelle_logement_to_jsoo calcul_aide_personnalisee_logement_in.type_aide_in
      val ressourcesMenageSansArrondiIn =
        Js.number_of_float @@ money_to_float calcul_aide_personnalisee_logement_in.ressources_menage_sans_arrondi_in
      val situationFamilialeIn =
        situation_familiale_to_jsoo calcul_aide_personnalisee_logement_in.situation_familiale_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_aide_personnalisee_logement_in.nombre_personnes_a_charge_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_aide_personnalisee_logement_in.zone_in
      val dateCouranteIn =
        date_to_jsoo calcul_aide_personnalisee_logement_in.date_courante_in
      end
  let calcul_aide_personnalisee_logement_in_of_jsoo
    (calcul_aide_personnalisee_logement_in
      : calcul_aide_personnalisee_logement_in Js.t) :
    CalculAidePersonnaliseeLogementIn.t =
    {
      mode_occupation_in =
        mode_occupation_of_jsoo
          calcul_aide_personnalisee_logement_in##.modeOccupationIn;
      type_aide_in =
        type_aides_personnelle_logement_of_jsoo
          calcul_aide_personnalisee_logement_in##.typeAideIn;
      ressources_menage_sans_arrondi_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_aide_personnalisee_logement_in
          ##.ressourcesMenageSansArrondiIn;
      situation_familiale_in =
        situation_familiale_of_jsoo
          calcul_aide_personnalisee_logement_in##.situationFamilialeIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_aide_personnalisee_logement_in##.nombrePersonnesAChargeIn;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_aide_personnalisee_logement_in##.zoneIn;
      date_courante_in =
        date_of_jsoo calcul_aide_personnalisee_logement_in##.dateCouranteIn
    }

class type calcul_allocation_logement_locatif_out =
  object
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_allocation_logement_locatif_out_to_jsoo
    (calcul_allocation_logement_locatif_out
    : CalculAllocationLogementLocatifOut.t)
    : calcul_allocation_logement_locatif_out Js.t =
    object%js
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_out.aide_finale_formule_out
      method traitementAideFinaleOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_allocation_logement_locatif_out.traitement_aide_finale_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_allocation_logement_locatif_out_of_jsoo
    (calcul_allocation_logement_locatif_out
      : calcul_allocation_logement_locatif_out Js.t) :
    CalculAllocationLogementLocatifOut.t =
    {
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_locatif_out##.aideFinaleFormuleOut;
      traitement_aide_finale_out = failwith "The function 'traitement_aide_finale_out' translation isn't yet supported..."
    }

class type calcul_allocation_logement_locatif_in =
  object
    method loyerPrincipalIn: Js.number Js.t Js.readonly_prop
    method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
    method beneficiaireAideAdulteOuEnfantHandicapesIn:
      bool Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method logementEstChambreIn: bool Js.t Js.readonly_prop
    method ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn:
      bool Js.t Js.readonly_prop
    method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
    method colocationIn: bool Js.t Js.readonly_prop
    method reductionLoyerSolidariteIn: Js.number Js.t Js.readonly_prop
    method logementMeubleD8422In: bool Js.t Js.readonly_prop
    method changementLogementD8424In:
      changement_logement_d842_4 Js.t Js.readonly_prop
  end
  let calcul_allocation_logement_locatif_in_to_jsoo
    (calcul_allocation_logement_locatif_in
    : CalculAllocationLogementLocatifIn.t)
    : calcul_allocation_logement_locatif_in Js.t =
    object%js
      val loyerPrincipalIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_in.loyer_principal_in
      val ressourcesMenageArrondiesIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_in.ressources_menage_arrondies_in
      val beneficiaireAideAdulteOuEnfantHandicapesIn =
        Js.bool calcul_allocation_logement_locatif_in.beneficiaire_aide_adulte_ou_enfant_handicapes_in
      val dateCouranteIn =
        date_to_jsoo calcul_allocation_logement_locatif_in.date_courante_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_allocation_logement_locatif_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_allocation_logement_locatif_in.situation_familiale_calcul_apl_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_allocation_logement_locatif_in.zone_in
      val logementEstChambreIn =
        Js.bool calcul_allocation_logement_locatif_in.logement_est_chambre_in
      val ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn =
        Js.bool calcul_allocation_logement_locatif_in.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in
      val typeAideIn =
        type_aides_personnelle_logement_to_jsoo calcul_allocation_logement_locatif_in.type_aide_in
      val colocationIn =
        Js.bool calcul_allocation_logement_locatif_in.colocation_in
      val reductionLoyerSolidariteIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_locatif_in.reduction_loyer_solidarite_in
      val logementMeubleD8422In =
        Js.bool calcul_allocation_logement_locatif_in.logement_meuble_d842_2_in
      val changementLogementD8424In =
        changement_logement_d842_4_to_jsoo calcul_allocation_logement_locatif_in.changement_logement_d842_4_in
      end
  let calcul_allocation_logement_locatif_in_of_jsoo
    (calcul_allocation_logement_locatif_in
      : calcul_allocation_logement_locatif_in Js.t) :
    CalculAllocationLogementLocatifIn.t =
    {
      loyer_principal_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_locatif_in##.loyerPrincipalIn;
      ressources_menage_arrondies_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_locatif_in##.ressourcesMenageArrondiesIn;
      beneficiaire_aide_adulte_ou_enfant_handicapes_in =
        Js.to_bool
          calcul_allocation_logement_locatif_in
          ##.beneficiaireAideAdulteOuEnfantHandicapesIn;
      date_courante_in =
        date_of_jsoo calcul_allocation_logement_locatif_in##.dateCouranteIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_allocation_logement_locatif_in##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_allocation_logement_locatif_in
          ##.situationFamilialeCalculAplIn;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_allocation_logement_locatif_in##.zoneIn;
      logement_est_chambre_in =
        Js.to_bool
          calcul_allocation_logement_locatif_in##.logementEstChambreIn;
      agees_ou_handicap_adultes_hebergees_onereux_particuliers_in =
        Js.to_bool
          calcul_allocation_logement_locatif_in
          ##.ageesOuHandicapAdultesHebergeesOnereuxParticuliersIn;
      type_aide_in =
        type_aides_personnelle_logement_of_jsoo
          calcul_allocation_logement_locatif_in##.typeAideIn;
      colocation_in =
        Js.to_bool calcul_allocation_logement_locatif_in##.colocationIn;
      reduction_loyer_solidarite_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_locatif_in##.reductionLoyerSolidariteIn;
      logement_meuble_d842_2_in =
        Js.to_bool
          calcul_allocation_logement_locatif_in##.logementMeubleD8422In;
      changement_logement_d842_4_in =
        changement_logement_d842_4_of_jsoo
          calcul_allocation_logement_locatif_in##.changementLogementD8424In
    }

class type calcul_allocation_logement_accession_propriete_out =
  object
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleMontantMinimalOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_allocation_logement_accession_propriete_out_to_jsoo
    (calcul_allocation_logement_accession_propriete_out
    : CalculAllocationLogementAccessionProprieteOut.t)
    : calcul_allocation_logement_accession_propriete_out Js.t =
    object%js
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_out.aide_finale_formule_out
      method traitementAideFinaleMontantMinimalOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_allocation_logement_accession_propriete_out.traitement_aide_finale_montant_minimal_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_allocation_logement_accession_propriete_out_of_jsoo
    (calcul_allocation_logement_accession_propriete_out
      : calcul_allocation_logement_accession_propriete_out Js.t) :
    CalculAllocationLogementAccessionProprieteOut.t =
    {
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_accession_propriete_out
          ##.aideFinaleFormuleOut;
      traitement_aide_finale_montant_minimal_out = failwith "The function 'traitement_aide_finale_montant_minimal_out' translation isn't yet supported..."
    }

class type calcul_allocation_logement_accession_propriete_in =
  object
    method ressourcesMenageArrondiesBaseIn: Js.number Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method mensualitePrincipaleIn: Js.number Js.t Js.readonly_prop
    method situationR822111317In: bool Js.t Js.readonly_prop
    method dateSignaturePretIn: Js.js_string Js.t Js.readonly_prop
    method typeTravauxLogementIn:
      type_travaux_logement_r842_5 Js.t Js.readonly_prop
    method localHabitePremiereFoisBeneficiaireIn: bool Js.t Js.readonly_prop
    method dateEntreeLogementIn: Js.js_string Js.t Js.readonly_prop
    method chargesMensuellesPretIn: Js.number Js.t Js.readonly_prop
    method coproprieteIn: bool Js.t Js.readonly_prop
  end
  let calcul_allocation_logement_accession_propriete_in_to_jsoo
    (calcul_allocation_logement_accession_propriete_in
    : CalculAllocationLogementAccessionProprieteIn.t)
    : calcul_allocation_logement_accession_propriete_in Js.t =
    object%js
      val ressourcesMenageArrondiesBaseIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_in.ressources_menage_arrondies_base_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_allocation_logement_accession_propriete_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_allocation_logement_accession_propriete_in.situation_familiale_calcul_apl_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_allocation_logement_accession_propriete_in.zone_in
      val dateCouranteIn =
        date_to_jsoo calcul_allocation_logement_accession_propriete_in.date_courante_in
      val mensualitePrincipaleIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_in.mensualite_principale_in
      val situationR822111317In =
        Js.bool calcul_allocation_logement_accession_propriete_in.situation_r822_11_13_17_in
      val dateSignaturePretIn =
        date_to_jsoo calcul_allocation_logement_accession_propriete_in.date_signature_pret_in
      val typeTravauxLogementIn =
        type_travaux_logement_r842_5_to_jsoo calcul_allocation_logement_accession_propriete_in.type_travaux_logement_in
      val localHabitePremiereFoisBeneficiaireIn =
        Js.bool calcul_allocation_logement_accession_propriete_in.local_habite_premiere_fois_beneficiaire_in
      val dateEntreeLogementIn =
        date_to_jsoo calcul_allocation_logement_accession_propriete_in.date_entree_logement_in
      val chargesMensuellesPretIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_accession_propriete_in.charges_mensuelles_pret_in
      val coproprieteIn =
        Js.bool calcul_allocation_logement_accession_propriete_in.copropriete_in
      end
  let calcul_allocation_logement_accession_propriete_in_of_jsoo
    (calcul_allocation_logement_accession_propriete_in
      : calcul_allocation_logement_accession_propriete_in Js.t) :
    CalculAllocationLogementAccessionProprieteIn.t =
    {
      ressources_menage_arrondies_base_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_accession_propriete_in
          ##.ressourcesMenageArrondiesBaseIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_allocation_logement_accession_propriete_in
          ##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_allocation_logement_accession_propriete_in
          ##.situationFamilialeCalculAplIn;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_allocation_logement_accession_propriete_in##.zoneIn;
      date_courante_in =
        date_of_jsoo
          calcul_allocation_logement_accession_propriete_in##.dateCouranteIn;
      mensualite_principale_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_accession_propriete_in
          ##.mensualitePrincipaleIn;
      situation_r822_11_13_17_in =
        Js.to_bool
          calcul_allocation_logement_accession_propriete_in
          ##.situationR822111317In;
      date_signature_pret_in =
        date_of_jsoo
          calcul_allocation_logement_accession_propriete_in
          ##.dateSignaturePretIn;
      type_travaux_logement_in =
        type_travaux_logement_r842_5_of_jsoo
          calcul_allocation_logement_accession_propriete_in
          ##.typeTravauxLogementIn;
      local_habite_premiere_fois_beneficiaire_in =
        Js.to_bool
          calcul_allocation_logement_accession_propriete_in
          ##.localHabitePremiereFoisBeneficiaireIn;
      date_entree_logement_in =
        date_of_jsoo
          calcul_allocation_logement_accession_propriete_in
          ##.dateEntreeLogementIn;
      charges_mensuelles_pret_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_accession_propriete_in
          ##.chargesMensuellesPretIn;
      copropriete_in =
        Js.to_bool
          calcul_allocation_logement_accession_propriete_in##.coproprieteIn
    }

class type calcul_allocation_logement_foyer_out =
  object
    method coefficientPriseEnChargeOut: Js.number Js.t Js.readonly_prop
    method equivalenceLoyerOut: Js.number Js.t Js.readonly_prop
    method montantForfaitaireChargesOut: Js.number Js.t Js.readonly_prop
    method loyerMinimalOut: Js.number Js.t Js.readonly_prop
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleMontantMinimalOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_allocation_logement_foyer_out_to_jsoo
    (calcul_allocation_logement_foyer_out
    : CalculAllocationLogementFoyerOut.t)
    : calcul_allocation_logement_foyer_out Js.t =
    object%js
      val coefficientPriseEnChargeOut =
        Js.number_of_float @@ decimal_to_float calcul_allocation_logement_foyer_out.coefficient_prise_en_charge_out
      val equivalenceLoyerOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_out.equivalence_loyer_out
      val montantForfaitaireChargesOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_out.montant_forfaitaire_charges_out
      val loyerMinimalOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_out.loyer_minimal_out
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_out.aide_finale_formule_out
      method traitementAideFinaleMontantMinimalOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_allocation_logement_foyer_out.traitement_aide_finale_montant_minimal_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_allocation_logement_foyer_out_of_jsoo
    (calcul_allocation_logement_foyer_out
      : calcul_allocation_logement_foyer_out Js.t) :
    CalculAllocationLogementFoyerOut.t =
    {
      coefficient_prise_en_charge_out =
        decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_out##.coefficientPriseEnChargeOut;
      equivalence_loyer_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_out##.equivalenceLoyerOut;
      montant_forfaitaire_charges_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_out##.montantForfaitaireChargesOut;
      loyer_minimal_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_out##.loyerMinimalOut;
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_out##.aideFinaleFormuleOut;
      traitement_aide_finale_montant_minimal_out = failwith "The function 'traitement_aide_finale_montant_minimal_out' translation isn't yet supported..."
    }

class type calcul_allocation_logement_foyer_in =
  object
    method typeLogementFoyerIn: type_logement_foyer Js.t Js.readonly_prop
    method dateConventionnementIn: Js.js_string Js.t Js.readonly_prop
    method redevanceIn: Js.number Js.t Js.readonly_prop
    method ressourcesMenageArrondiesIn: Js.number Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method situationFamilialeCalculAplIn:
      situation_familiale_calcul_a_p_l Js.t Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method categorieEquivalenceLoyerD84216In:
      categorie_equivalence_loyer_allocation_logement_foyer Js.t Js.readonly_prop
  end
  let calcul_allocation_logement_foyer_in_to_jsoo
    (calcul_allocation_logement_foyer_in : CalculAllocationLogementFoyerIn.t)
    : calcul_allocation_logement_foyer_in Js.t =
    object%js
      val typeLogementFoyerIn =
        type_logement_foyer_to_jsoo calcul_allocation_logement_foyer_in.type_logement_foyer_in
      val dateConventionnementIn =
        date_to_jsoo calcul_allocation_logement_foyer_in.date_conventionnement_in
      val redevanceIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_in.redevance_in
      val ressourcesMenageArrondiesIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_foyer_in.ressources_menage_arrondies_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_allocation_logement_foyer_in.nombre_personnes_a_charge_in
      val situationFamilialeCalculAplIn =
        situation_familiale_calcul_a_p_l_to_jsoo calcul_allocation_logement_foyer_in.situation_familiale_calcul_apl_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_allocation_logement_foyer_in.zone_in
      val dateCouranteIn =
        date_to_jsoo calcul_allocation_logement_foyer_in.date_courante_in
      val categorieEquivalenceLoyerD84216In =
        categorie_equivalence_loyer_allocation_logement_foyer_to_jsoo calcul_allocation_logement_foyer_in.categorie_equivalence_loyer_d842_16_in
      end
  let calcul_allocation_logement_foyer_in_of_jsoo
    (calcul_allocation_logement_foyer_in
      : calcul_allocation_logement_foyer_in Js.t) :
    CalculAllocationLogementFoyerIn.t =
    {
      type_logement_foyer_in =
        type_logement_foyer_of_jsoo
          calcul_allocation_logement_foyer_in##.typeLogementFoyerIn;
      date_conventionnement_in =
        date_of_jsoo
          calcul_allocation_logement_foyer_in##.dateConventionnementIn;
      redevance_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_in##.redevanceIn;
      ressources_menage_arrondies_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_foyer_in##.ressourcesMenageArrondiesIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_allocation_logement_foyer_in##.nombrePersonnesAChargeIn;
      situation_familiale_calcul_apl_in =
        situation_familiale_calcul_a_p_l_of_jsoo
          calcul_allocation_logement_foyer_in##.situationFamilialeCalculAplIn;
      zone_in =
        zone_d_habitation_of_jsoo
          calcul_allocation_logement_foyer_in##.zoneIn;
      date_courante_in =
        date_of_jsoo calcul_allocation_logement_foyer_in##.dateCouranteIn;
      categorie_equivalence_loyer_d842_16_in =
        categorie_equivalence_loyer_allocation_logement_foyer_of_jsoo
          calcul_allocation_logement_foyer_in
          ##.categorieEquivalenceLoyerD84216In
    }

class type calcul_allocation_logement_out =
  object
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
  end
  let calcul_allocation_logement_out_to_jsoo (calcul_allocation_logement_out
    : CalculAllocationLogementOut.t) : calcul_allocation_logement_out Js.t =
    object%js
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_out.aide_finale_formule_out
      method traitementAideFinaleOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calcul_allocation_logement_out.traitement_aide_finale_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      end
  let calcul_allocation_logement_out_of_jsoo
    (calcul_allocation_logement_out : calcul_allocation_logement_out Js.t) :
    CalculAllocationLogementOut.t =
    {
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_out##.aideFinaleFormuleOut;
      traitement_aide_finale_out = failwith "The function 'traitement_aide_finale_out' translation isn't yet supported..."
    }

class type calcul_allocation_logement_in =
  object
    method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
    method ressourcesMenageSansArrondiIn: Js.number Js.t Js.readonly_prop
    method situationFamilialeIn: situation_familiale Js.t Js.readonly_prop
    method nombrePersonnesAChargeIn: int Js.readonly_prop
    method zoneIn: zone_d_habitation Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method typeAideIn: type_aides_personnelle_logement Js.t Js.readonly_prop
  end
  let calcul_allocation_logement_in_to_jsoo (calcul_allocation_logement_in
    : CalculAllocationLogementIn.t) : calcul_allocation_logement_in Js.t =
    object%js
      val modeOccupationIn =
        mode_occupation_to_jsoo calcul_allocation_logement_in.mode_occupation_in
      val ressourcesMenageSansArrondiIn =
        Js.number_of_float @@ money_to_float calcul_allocation_logement_in.ressources_menage_sans_arrondi_in
      val situationFamilialeIn =
        situation_familiale_to_jsoo calcul_allocation_logement_in.situation_familiale_in
      val nombrePersonnesAChargeIn =
        integer_to_int calcul_allocation_logement_in.nombre_personnes_a_charge_in
      val zoneIn =
        zone_d_habitation_to_jsoo calcul_allocation_logement_in.zone_in
      val dateCouranteIn =
        date_to_jsoo calcul_allocation_logement_in.date_courante_in
      val typeAideIn =
        type_aides_personnelle_logement_to_jsoo calcul_allocation_logement_in.type_aide_in
      end
  let calcul_allocation_logement_in_of_jsoo
    (calcul_allocation_logement_in : calcul_allocation_logement_in Js.t) :
    CalculAllocationLogementIn.t =
    {
      mode_occupation_in =
        mode_occupation_of_jsoo
          calcul_allocation_logement_in##.modeOccupationIn;
      ressources_menage_sans_arrondi_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calcul_allocation_logement_in##.ressourcesMenageSansArrondiIn;
      situation_familiale_in =
        situation_familiale_of_jsoo
          calcul_allocation_logement_in##.situationFamilialeIn;
      nombre_personnes_a_charge_in =
        integer_of_int
          calcul_allocation_logement_in##.nombrePersonnesAChargeIn;
      zone_in =
        zone_d_habitation_of_jsoo calcul_allocation_logement_in##.zoneIn;
      date_courante_in =
        date_of_jsoo calcul_allocation_logement_in##.dateCouranteIn;
      type_aide_in =
        type_aides_personnelle_logement_of_jsoo
          calcul_allocation_logement_in##.typeAideIn
    }

class type ouverture_droits_retraite_out =
  object
    method ageOuvertureDroitOut:
      Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
  end
  let ouverture_droits_retraite_out_to_jsoo (ouverture_droits_retraite_out
    : OuvertureDroitsRetraiteOut.t) : ouverture_droits_retraite_out Js.t =
    object%js
      val ageOuvertureDroitOut =
        duration_to_jsoo ouverture_droits_retraite_out.age_ouverture_droit_out
      end
  let ouverture_droits_retraite_out_of_jsoo
    (ouverture_droits_retraite_out : ouverture_droits_retraite_out Js.t) :
    OuvertureDroitsRetraiteOut.t =
    {
      age_ouverture_droit_out =
        duration_of_jsoo ouverture_droits_retraite_out##.ageOuvertureDroitOut
    }

class type ouverture_droits_retraite_in =
  object method dateNaissanceAssureIn: Js.js_string Js.t Js.readonly_prop
  end
  let ouverture_droits_retraite_in_to_jsoo (ouverture_droits_retraite_in
    : OuvertureDroitsRetraiteIn.t) : ouverture_droits_retraite_in Js.t =
    object%js
      val dateNaissanceAssureIn =
        date_to_jsoo ouverture_droits_retraite_in.date_naissance_assure_in
      end
  let ouverture_droits_retraite_in_of_jsoo
    (ouverture_droits_retraite_in : ouverture_droits_retraite_in Js.t) :
    OuvertureDroitsRetraiteIn.t =
    {
      date_naissance_assure_in =
        date_of_jsoo ouverture_droits_retraite_in##.dateNaissanceAssureIn
    }

class type impaye_depense_logement_out =
  object method montantImpayeOut: Js.number Js.t Js.readonly_prop
  end
  let impaye_depense_logement_out_to_jsoo (impaye_depense_logement_out
    : ImpayeDepenseLogementOut.t) : impaye_depense_logement_out Js.t =
    object%js
      val montantImpayeOut =
        Js.number_of_float @@ money_to_float impaye_depense_logement_out.montant_impaye_out
      end
  let impaye_depense_logement_out_of_jsoo
    (impaye_depense_logement_out : impaye_depense_logement_out Js.t) :
    ImpayeDepenseLogementOut.t =
    {
      montant_impaye_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          impaye_depense_logement_out##.montantImpayeOut
    }

class type impaye_depense_logement_in =
  object
    method modeOccupationIn: mode_occupation Js.t Js.readonly_prop
    method aideVerseeIn: versement_a Js.t Js.readonly_prop
    method montantAplIn: Js.number Js.t Js.readonly_prop
    method montantChargesIn: Js.number Js.t Js.readonly_prop
    method depenseLogementIn: depense_logement Js.t Js.readonly_prop
    method montantDetteIn: Js.number Js.t Js.readonly_prop
  end
  let impaye_depense_logement_in_to_jsoo (impaye_depense_logement_in
    : ImpayeDepenseLogementIn.t) : impaye_depense_logement_in Js.t =
    object%js
      val modeOccupationIn =
        mode_occupation_to_jsoo impaye_depense_logement_in.mode_occupation_in
      val aideVerseeIn =
        versement_a_to_jsoo impaye_depense_logement_in.aide_versee_in
      val montantAplIn =
        Js.number_of_float @@ money_to_float impaye_depense_logement_in.montant_apl_in
      val montantChargesIn =
        Js.number_of_float @@ money_to_float impaye_depense_logement_in.montant_charges_in
      val depenseLogementIn =
        depense_logement_to_jsoo impaye_depense_logement_in.depense_logement_in
      val montantDetteIn =
        Js.number_of_float @@ money_to_float impaye_depense_logement_in.montant_dette_in
      end
  let impaye_depense_logement_in_of_jsoo
    (impaye_depense_logement_in : impaye_depense_logement_in Js.t) :
    ImpayeDepenseLogementIn.t =
    {
      mode_occupation_in =
        mode_occupation_of_jsoo impaye_depense_logement_in##.modeOccupationIn;
      aide_versee_in =
        versement_a_of_jsoo impaye_depense_logement_in##.aideVerseeIn;
      montant_apl_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          impaye_depense_logement_in##.montantAplIn;
      montant_charges_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          impaye_depense_logement_in##.montantChargesIn;
      depense_logement_in =
        depense_logement_of_jsoo
          impaye_depense_logement_in##.depenseLogementIn;
      montant_dette_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          impaye_depense_logement_in##.montantDetteIn
    }

class type calculette_aides_au_logement_out =
  object
    method eligibiliteOut: bool Js.t Js.readonly_prop
    method aideFinaleFormuleOut: Js.number Js.t Js.readonly_prop
    method traitementAideFinaleOut:
      (Js.number Js.t,  Js.number Js.t) Js.meth_callback Js.meth
    method coefficentsEnfantsGardeAlterneePrisEnCompteOut:
      Js.number Js.t Js.js_array Js.t Js.readonly_prop
  end
  let calculette_aides_au_logement_out_to_jsoo
    (calculette_aides_au_logement_out : CalculetteAidesAuLogementOut.t)
    : calculette_aides_au_logement_out Js.t =
    object%js
      val eligibiliteOut =
        Js.bool calculette_aides_au_logement_out.eligibilite_out
      val aideFinaleFormuleOut =
        Js.number_of_float @@ money_to_float calculette_aides_au_logement_out.aide_finale_formule_out
      method traitementAideFinaleOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.number_of_float @@ money_to_float (calculette_aides_au_logement_out.traitement_aide_finale_out (money_of_decimal @@ decimal_of_float @@ Js.float_of_number input)))
      val coefficentsEnfantsGardeAlterneePrisEnCompteOut =
        Js.array @@ Array.map (fun x -> Js.number_of_float @@ decimal_to_float x) calculette_aides_au_logement_out.coefficents_enfants_garde_alternee_pris_en_compte_out
      end
  let calculette_aides_au_logement_out_of_jsoo
    (calculette_aides_au_logement_out
      : calculette_aides_au_logement_out Js.t) :
    CalculetteAidesAuLogementOut.t =
    {
      eligibilite_out =
        Js.to_bool calculette_aides_au_logement_out##.eligibiliteOut;
      aide_finale_formule_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calculette_aides_au_logement_out##.aideFinaleFormuleOut;
      traitement_aide_finale_out = failwith "The function 'traitement_aide_finale_out' translation isn't yet supported...";
      coefficents_enfants_garde_alternee_pris_en_compte_out =
        Array.map (fun x -> decimal_of_float @@ Js.float_of_number x) @@ Js.to_array
          calculette_aides_au_logement_out
          ##.coefficentsEnfantsGardeAlterneePrisEnCompteOut
    }

class type calculette_aides_au_logement_in =
  object
    method menageIn: menage Js.t Js.readonly_prop
    method demandeurIn: demandeur Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method ressourcesMenagePrisesEnCompteIn: Js.number Js.t Js.readonly_prop
  end
  let calculette_aides_au_logement_in_to_jsoo
    (calculette_aides_au_logement_in : CalculetteAidesAuLogementIn.t)
    : calculette_aides_au_logement_in Js.t =
    object%js
      val menageIn = menage_to_jsoo calculette_aides_au_logement_in.menage_in
      val demandeurIn =
        demandeur_to_jsoo calculette_aides_au_logement_in.demandeur_in
      val dateCouranteIn =
        date_to_jsoo calculette_aides_au_logement_in.date_courante_in
      val ressourcesMenagePrisesEnCompteIn =
        Js.number_of_float @@ money_to_float calculette_aides_au_logement_in.ressources_menage_prises_en_compte_in
      end
  let calculette_aides_au_logement_in_of_jsoo
    (calculette_aides_au_logement_in : calculette_aides_au_logement_in Js.t) :
    CalculetteAidesAuLogementIn.t =
    {
      menage_in = menage_of_jsoo calculette_aides_au_logement_in##.menageIn;
      demandeur_in =
        demandeur_of_jsoo calculette_aides_au_logement_in##.demandeurIn;
      date_courante_in =
        date_of_jsoo calculette_aides_au_logement_in##.dateCouranteIn;
      ressources_menage_prises_en_compte_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calculette_aides_au_logement_in##.ressourcesMenagePrisesEnCompteIn
    }

class type calculette_aides_au_logement_garde_alternee_out =
  object
    method eligibiliteOut: bool Js.t Js.readonly_prop
    method aideFinaleOut: Js.number Js.t Js.readonly_prop
  end
  let calculette_aides_au_logement_garde_alternee_out_to_jsoo
    (calculette_aides_au_logement_garde_alternee_out
    : CalculetteAidesAuLogementGardeAlterneeOut.t)
    : calculette_aides_au_logement_garde_alternee_out Js.t =
    object%js
      val eligibiliteOut =
        Js.bool calculette_aides_au_logement_garde_alternee_out.eligibilite_out
      val aideFinaleOut =
        Js.number_of_float @@ money_to_float calculette_aides_au_logement_garde_alternee_out.aide_finale_out
      end
  let calculette_aides_au_logement_garde_alternee_out_of_jsoo
    (calculette_aides_au_logement_garde_alternee_out
      : calculette_aides_au_logement_garde_alternee_out Js.t) :
    CalculetteAidesAuLogementGardeAlterneeOut.t =
    {
      eligibilite_out =
        Js.to_bool
          calculette_aides_au_logement_garde_alternee_out##.eligibiliteOut;
      aide_finale_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calculette_aides_au_logement_garde_alternee_out##.aideFinaleOut
    }

class type calculette_aides_au_logement_garde_alternee_in =
  object
    method menageIn: menage Js.t Js.readonly_prop
    method demandeurIn: demandeur Js.t Js.readonly_prop
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method ressourcesMenagePrisesEnCompteIn: Js.number Js.t Js.readonly_prop
  end
  let calculette_aides_au_logement_garde_alternee_in_to_jsoo
    (calculette_aides_au_logement_garde_alternee_in
    : CalculetteAidesAuLogementGardeAlterneeIn.t)
    : calculette_aides_au_logement_garde_alternee_in Js.t =
    object%js
      val menageIn =
        menage_to_jsoo calculette_aides_au_logement_garde_alternee_in.menage_in
      val demandeurIn =
        demandeur_to_jsoo calculette_aides_au_logement_garde_alternee_in.demandeur_in
      val dateCouranteIn =
        date_to_jsoo calculette_aides_au_logement_garde_alternee_in.date_courante_in
      val ressourcesMenagePrisesEnCompteIn =
        Js.number_of_float @@ money_to_float calculette_aides_au_logement_garde_alternee_in.ressources_menage_prises_en_compte_in
      end
  let calculette_aides_au_logement_garde_alternee_in_of_jsoo
    (calculette_aides_au_logement_garde_alternee_in
      : calculette_aides_au_logement_garde_alternee_in Js.t) :
    CalculetteAidesAuLogementGardeAlterneeIn.t =
    {
      menage_in =
        menage_of_jsoo
          calculette_aides_au_logement_garde_alternee_in##.menageIn;
      demandeur_in =
        demandeur_of_jsoo
          calculette_aides_au_logement_garde_alternee_in##.demandeurIn;
      date_courante_in =
        date_of_jsoo
          calculette_aides_au_logement_garde_alternee_in##.dateCouranteIn;
      ressources_menage_prises_en_compte_in =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          calculette_aides_au_logement_garde_alternee_in
          ##.ressourcesMenagePrisesEnCompteIn
    }

class type base_mensuelle_allocations_familiales_out =
  object method montantOut: Js.number Js.t Js.readonly_prop
  end
  let base_mensuelle_allocations_familiales_out_to_jsoo
    (base_mensuelle_allocations_familiales_out
    : BaseMensuelleAllocationsFamilialesOut.t)
    : base_mensuelle_allocations_familiales_out Js.t =
    object%js
      val montantOut =
        Js.number_of_float @@ money_to_float base_mensuelle_allocations_familiales_out.montant_out
      end
  let base_mensuelle_allocations_familiales_out_of_jsoo
    (base_mensuelle_allocations_familiales_out
      : base_mensuelle_allocations_familiales_out Js.t) :
    BaseMensuelleAllocationsFamilialesOut.t =
    {
      montant_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          base_mensuelle_allocations_familiales_out##.montantOut
    }

class type base_mensuelle_allocations_familiales_in =
  object method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
  end
  let base_mensuelle_allocations_familiales_in_to_jsoo
    (base_mensuelle_allocations_familiales_in
    : BaseMensuelleAllocationsFamilialesIn.t)
    : base_mensuelle_allocations_familiales_in Js.t =
    object%js
      val dateCouranteIn =
        date_to_jsoo base_mensuelle_allocations_familiales_in.date_courante_in
      end
  let base_mensuelle_allocations_familiales_in_of_jsoo
    (base_mensuelle_allocations_familiales_in
      : base_mensuelle_allocations_familiales_in Js.t) :
    BaseMensuelleAllocationsFamilialesIn.t =
    {
      date_courante_in =
        date_of_jsoo
          base_mensuelle_allocations_familiales_in##.dateCouranteIn
    }

class type smic_out =
  object method brutHoraireOut: Js.number Js.t Js.readonly_prop
  end
  let smic_out_to_jsoo (smic_out : SmicOut.t) : smic_out Js.t =
    object%js
      val brutHoraireOut =
        Js.number_of_float @@ money_to_float smic_out.brut_horaire_out
      end
  let smic_out_of_jsoo (smic_out : smic_out Js.t) : SmicOut.t =
    {
      brut_horaire_out =
        money_of_decimal @@ decimal_of_float @@ Js.float_of_number
          smic_out##.brutHoraireOut
    }

class type smic_in =
  object
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method residenceIn: collectivite Js.t Js.readonly_prop
  end
  let smic_in_to_jsoo (smic_in : SmicIn.t) : smic_in Js.t =
    object%js
      val dateCouranteIn = date_to_jsoo smic_in.date_courante_in
      val residenceIn = collectivite_to_jsoo smic_in.residence_in
      end
  let smic_in_of_jsoo (smic_in : smic_in Js.t) : SmicIn.t =
    {
      date_courante_in = date_of_jsoo smic_in##.dateCouranteIn;
      residence_in = collectivite_of_jsoo smic_in##.residenceIn
    }

class type eligibilite_prestations_familiales_out =
  object
    method droitOuvertOut:
      (enfant_prestations_familiales Js.t,  bool Js.t) Js.meth_callback Js.meth
    method conditionsHorsAgeOut:
      (enfant_prestations_familiales Js.t,  bool Js.t) Js.meth_callback Js.meth
    method ageL51232Out: Runtime_jsoo.Runtime.duration Js.t Js.readonly_prop
    method regimeOutreMerL7511Out: bool Js.t Js.readonly_prop
  end
  let eligibilite_prestations_familiales_out_to_jsoo
    (eligibilite_prestations_familiales_out
    : EligibilitePrestationsFamilialesOut.t)
    : eligibilite_prestations_familiales_out Js.t =
    object%js
      method droitOuvertOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.bool (eligibilite_prestations_familiales_out.droit_ouvert_out (enfant_prestations_familiales_of_jsoo input)))
      method conditionsHorsAgeOut = Js.wrap_meth_callback
        (
          fun input ->
          Js.bool (eligibilite_prestations_familiales_out.conditions_hors_age_out (enfant_prestations_familiales_of_jsoo input)))
      val ageL51232Out =
        duration_to_jsoo eligibilite_prestations_familiales_out.age_l512_3_2_out
      val regimeOutreMerL7511Out =
        Js.bool eligibilite_prestations_familiales_out.regime_outre_mer_l751_1_out
      end
  let eligibilite_prestations_familiales_out_of_jsoo
    (eligibilite_prestations_familiales_out
      : eligibilite_prestations_familiales_out Js.t) :
    EligibilitePrestationsFamilialesOut.t =
    {
      droit_ouvert_out = failwith "The function 'droit_ouvert_out' translation isn't yet supported...";
      conditions_hors_age_out = failwith "The function 'conditions_hors_age_out' translation isn't yet supported...";
      age_l512_3_2_out =
        duration_of_jsoo
          eligibilite_prestations_familiales_out##.ageL51232Out;
      regime_outre_mer_l751_1_out =
        Js.to_bool
          eligibilite_prestations_familiales_out##.regimeOutreMerL7511Out
    }

class type eligibilite_prestations_familiales_in =
  object
    method dateCouranteIn: Js.js_string Js.t Js.readonly_prop
    method prestationCouranteIn:
      element_prestations_familiales Js.t Js.readonly_prop
    method residenceIn: collectivite Js.t Js.readonly_prop
  end
  let eligibilite_prestations_familiales_in_to_jsoo
    (eligibilite_prestations_familiales_in
    : EligibilitePrestationsFamilialesIn.t)
    : eligibilite_prestations_familiales_in Js.t =
    object%js
      val dateCouranteIn =
        date_to_jsoo eligibilite_prestations_familiales_in.date_courante_in
      val prestationCouranteIn =
        element_prestations_familiales_to_jsoo eligibilite_prestations_familiales_in.prestation_courante_in
      val residenceIn =
        collectivite_to_jsoo eligibilite_prestations_familiales_in.residence_in
      end
  let eligibilite_prestations_familiales_in_of_jsoo
    (eligibilite_prestations_familiales_in
      : eligibilite_prestations_familiales_in Js.t) :
    EligibilitePrestationsFamilialesIn.t =
    {
      date_courante_in =
        date_of_jsoo eligibilite_prestations_familiales_in##.dateCouranteIn;
      prestation_courante_in =
        element_prestations_familiales_of_jsoo
          eligibilite_prestations_familiales_in##.prestationCouranteIn;
      residence_in =
        collectivite_of_jsoo
          eligibilite_prestations_familiales_in##.residenceIn
    }




let contributions_sociales_aides_personnelle_logement
  (contributions_sociales_aides_personnelle_logement_in : contributions_sociales_aides_personnelle_logement_in Js.t)
  : contributions_sociales_aides_personnelle_logement_out Js.t =
  contributions_sociales_aides_personnelle_logement_in
  |> contributions_sociales_aides_personnelle_logement_in_of_jsoo
  |> contributions_sociales_aides_personnelle_logement
  |> contributions_sociales_aides_personnelle_logement_out_to_jsoo


let calcul_equivalence_loyer_minimale
  (calcul_equivalence_loyer_minimale_in : calcul_equivalence_loyer_minimale_in Js.t)
  : calcul_equivalence_loyer_minimale_out Js.t =
  calcul_equivalence_loyer_minimale_in
  |> calcul_equivalence_loyer_minimale_in_of_jsoo
  |> calcul_equivalence_loyer_minimale
  |> calcul_equivalence_loyer_minimale_out_to_jsoo


let calcul_nombre_part_logement_foyer
  (calcul_nombre_part_logement_foyer_in : calcul_nombre_part_logement_foyer_in Js.t)
  : calcul_nombre_part_logement_foyer_out Js.t =
  calcul_nombre_part_logement_foyer_in
  |> calcul_nombre_part_logement_foyer_in_of_jsoo
  |> calcul_nombre_part_logement_foyer
  |> calcul_nombre_part_logement_foyer_out_to_jsoo


let calcul_nombre_parts_accession_propriete
  (calcul_nombre_parts_accession_propriete_in : calcul_nombre_parts_accession_propriete_in Js.t)
  : calcul_nombre_parts_accession_propriete_out Js.t =
  calcul_nombre_parts_accession_propriete_in
  |> calcul_nombre_parts_accession_propriete_in_of_jsoo
  |> calcul_nombre_parts_accession_propriete
  |> calcul_nombre_parts_accession_propriete_out_to_jsoo


let ouverture_droits_retraite
  (ouverture_droits_retraite_in : ouverture_droits_retraite_in Js.t)
  : ouverture_droits_retraite_out Js.t =
  ouverture_droits_retraite_in
  |> ouverture_droits_retraite_in_of_jsoo
  |> ouverture_droits_retraite
  |> ouverture_droits_retraite_out_to_jsoo


let impaye_depense_logement
  (impaye_depense_logement_in : impaye_depense_logement_in Js.t)
  : impaye_depense_logement_out Js.t =
  impaye_depense_logement_in
  |> impaye_depense_logement_in_of_jsoo
  |> impaye_depense_logement
  |> impaye_depense_logement_out_to_jsoo


let base_mensuelle_allocations_familiales
  (base_mensuelle_allocations_familiales_in : base_mensuelle_allocations_familiales_in Js.t)
  : base_mensuelle_allocations_familiales_out Js.t =
  base_mensuelle_allocations_familiales_in
  |> base_mensuelle_allocations_familiales_in_of_jsoo
  |> base_mensuelle_allocations_familiales
  |> base_mensuelle_allocations_familiales_out_to_jsoo


let smic (smic_in : smic_in Js.t)
  : smic_out Js.t =
  smic_in |> smic_in_of_jsoo |> smic |> smic_out_to_jsoo


let calcul_aide_personnalisee_logement_locatif
  (calcul_aide_personnalisee_logement_locatif_in : calcul_aide_personnalisee_logement_locatif_in Js.t)
  : calcul_aide_personnalisee_logement_locatif_out Js.t =
  calcul_aide_personnalisee_logement_locatif_in
  |> calcul_aide_personnalisee_logement_locatif_in_of_jsoo
  |> calcul_aide_personnalisee_logement_locatif
  |> calcul_aide_personnalisee_logement_locatif_out_to_jsoo


let calcul_aide_personnalisee_logement_foyer
  (calcul_aide_personnalisee_logement_foyer_in : calcul_aide_personnalisee_logement_foyer_in Js.t)
  : calcul_aide_personnalisee_logement_foyer_out Js.t =
  calcul_aide_personnalisee_logement_foyer_in
  |> calcul_aide_personnalisee_logement_foyer_in_of_jsoo
  |> calcul_aide_personnalisee_logement_foyer
  |> calcul_aide_personnalisee_logement_foyer_out_to_jsoo


let calcul_aide_personnalisee_logement_accession_propriete
  (calcul_aide_personnalisee_logement_accession_propriete_in : calcul_aide_personnalisee_logement_accession_propriete_in Js.t)
  : calcul_aide_personnalisee_logement_accession_propriete_out Js.t =
  calcul_aide_personnalisee_logement_accession_propriete_in
  |> calcul_aide_personnalisee_logement_accession_propriete_in_of_jsoo
  |> calcul_aide_personnalisee_logement_accession_propriete
  |> calcul_aide_personnalisee_logement_accession_propriete_out_to_jsoo


let eligibilite_aides_personnelle_logement
  (eligibilite_aides_personnelle_logement_in : eligibilite_aides_personnelle_logement_in Js.t)
  : eligibilite_aides_personnelle_logement_out Js.t =
  eligibilite_aides_personnelle_logement_in
  |> eligibilite_aides_personnelle_logement_in_of_jsoo
  |> eligibilite_aides_personnelle_logement
  |> eligibilite_aides_personnelle_logement_out_to_jsoo


let ressources_aides_personnelle_logement
  (ressources_aides_personnelle_logement_in : ressources_aides_personnelle_logement_in Js.t)
  : ressources_aides_personnelle_logement_out Js.t =
  ressources_aides_personnelle_logement_in
  |> ressources_aides_personnelle_logement_in_of_jsoo
  |> ressources_aides_personnelle_logement
  |> ressources_aides_personnelle_logement_out_to_jsoo


let eligibilite_prestations_familiales
  (eligibilite_prestations_familiales_in : eligibilite_prestations_familiales_in Js.t)
  : eligibilite_prestations_familiales_out Js.t =
  eligibilite_prestations_familiales_in
  |> eligibilite_prestations_familiales_in_of_jsoo
  |> eligibilite_prestations_familiales
  |> eligibilite_prestations_familiales_out_to_jsoo


let calcul_allocation_logement_locatif
  (calcul_allocation_logement_locatif_in : calcul_allocation_logement_locatif_in Js.t)
  : calcul_allocation_logement_locatif_out Js.t =
  calcul_allocation_logement_locatif_in
  |> calcul_allocation_logement_locatif_in_of_jsoo
  |> calcul_allocation_logement_locatif
  |> calcul_allocation_logement_locatif_out_to_jsoo


let calcul_allocation_logement_foyer
  (calcul_allocation_logement_foyer_in : calcul_allocation_logement_foyer_in Js.t)
  : calcul_allocation_logement_foyer_out Js.t =
  calcul_allocation_logement_foyer_in
  |> calcul_allocation_logement_foyer_in_of_jsoo
  |> calcul_allocation_logement_foyer
  |> calcul_allocation_logement_foyer_out_to_jsoo


let calcul_allocation_logement_accession_propriete
  (calcul_allocation_logement_accession_propriete_in : calcul_allocation_logement_accession_propriete_in Js.t)
  : calcul_allocation_logement_accession_propriete_out Js.t =
  calcul_allocation_logement_accession_propriete_in
  |> calcul_allocation_logement_accession_propriete_in_of_jsoo
  |> calcul_allocation_logement_accession_propriete
  |> calcul_allocation_logement_accession_propriete_out_to_jsoo


let calcul_aide_personnalisee_logement
  (calcul_aide_personnalisee_logement_in : calcul_aide_personnalisee_logement_in Js.t)
  : calcul_aide_personnalisee_logement_out Js.t =
  calcul_aide_personnalisee_logement_in
  |> calcul_aide_personnalisee_logement_in_of_jsoo
  |> calcul_aide_personnalisee_logement
  |> calcul_aide_personnalisee_logement_out_to_jsoo


let eligibilite_prime_de_demenagement
  (eligibilite_prime_de_demenagement_in : eligibilite_prime_de_demenagement_in Js.t)
  : eligibilite_prime_de_demenagement_out Js.t =
  eligibilite_prime_de_demenagement_in
  |> eligibilite_prime_de_demenagement_in_of_jsoo
  |> eligibilite_prime_de_demenagement
  |> eligibilite_prime_de_demenagement_out_to_jsoo


let eligibilite_aide_personnalisee_logement
  (eligibilite_aide_personnalisee_logement_in : eligibilite_aide_personnalisee_logement_in Js.t)
  : eligibilite_aide_personnalisee_logement_out Js.t =
  eligibilite_aide_personnalisee_logement_in
  |> eligibilite_aide_personnalisee_logement_in_of_jsoo
  |> eligibilite_aide_personnalisee_logement
  |> eligibilite_aide_personnalisee_logement_out_to_jsoo


let eligibilite_allocation_logement
  (eligibilite_allocation_logement_in : eligibilite_allocation_logement_in Js.t)
  : eligibilite_allocation_logement_out Js.t =
  eligibilite_allocation_logement_in
  |> eligibilite_allocation_logement_in_of_jsoo
  |> eligibilite_allocation_logement
  |> eligibilite_allocation_logement_out_to_jsoo


let calcul_allocation_logement
  (calcul_allocation_logement_in : calcul_allocation_logement_in Js.t)
  : calcul_allocation_logement_out Js.t =
  calcul_allocation_logement_in
  |> calcul_allocation_logement_in_of_jsoo
  |> calcul_allocation_logement
  |> calcul_allocation_logement_out_to_jsoo


let calculette_aides_au_logement
  (calculette_aides_au_logement_in : calculette_aides_au_logement_in Js.t)
  : calculette_aides_au_logement_out Js.t =
  calculette_aides_au_logement_in
  |> calculette_aides_au_logement_in_of_jsoo
  |> calculette_aides_au_logement
  |> calculette_aides_au_logement_out_to_jsoo


let calculette_aides_au_logement_garde_alternee
  (calculette_aides_au_logement_garde_alternee_in : calculette_aides_au_logement_garde_alternee_in Js.t)
  : calculette_aides_au_logement_garde_alternee_out Js.t =
  calculette_aides_au_logement_garde_alternee_in
  |> calculette_aides_au_logement_garde_alternee_in_of_jsoo
  |> calculette_aides_au_logement_garde_alternee
  |> calculette_aides_au_logement_garde_alternee_out_to_jsoo


let _ =
   Js.export "AidesLogementLib"
    (object%js
      
      method contributionsSocialesAidesPersonnelleLogement : (contributions_sociales_aides_personnelle_logement_in Js.t -> contributions_sociales_aides_personnelle_logement_out Js.t) Js.callback =
        Js.wrap_callback contributions_sociales_aides_personnelle_logement
      
      method calculEquivalenceLoyerMinimale : (calcul_equivalence_loyer_minimale_in Js.t -> calcul_equivalence_loyer_minimale_out Js.t) Js.callback =
        Js.wrap_callback calcul_equivalence_loyer_minimale
      
      method calculNombrePartLogementFoyer : (calcul_nombre_part_logement_foyer_in Js.t -> calcul_nombre_part_logement_foyer_out Js.t) Js.callback =
        Js.wrap_callback calcul_nombre_part_logement_foyer
      
      method calculNombrePartsAccessionPropriete : (calcul_nombre_parts_accession_propriete_in Js.t -> calcul_nombre_parts_accession_propriete_out Js.t) Js.callback =
        Js.wrap_callback calcul_nombre_parts_accession_propriete
      
      method ouvertureDroitsRetraite : (ouverture_droits_retraite_in Js.t -> ouverture_droits_retraite_out Js.t) Js.callback =
        Js.wrap_callback ouverture_droits_retraite
      
      method impayeDepenseLogement : (impaye_depense_logement_in Js.t -> impaye_depense_logement_out Js.t) Js.callback =
        Js.wrap_callback impaye_depense_logement
      
      method baseMensuelleAllocationsFamiliales : (base_mensuelle_allocations_familiales_in Js.t -> base_mensuelle_allocations_familiales_out Js.t) Js.callback =
        Js.wrap_callback base_mensuelle_allocations_familiales
      
      method smic : (smic_in Js.t -> smic_out Js.t) Js.callback =
        Js.wrap_callback smic
      
      method calculAidePersonnaliseeLogementLocatif : (calcul_aide_personnalisee_logement_locatif_in Js.t -> calcul_aide_personnalisee_logement_locatif_out Js.t) Js.callback =
        Js.wrap_callback calcul_aide_personnalisee_logement_locatif
      
      method calculAidePersonnaliseeLogementFoyer : (calcul_aide_personnalisee_logement_foyer_in Js.t -> calcul_aide_personnalisee_logement_foyer_out Js.t) Js.callback =
        Js.wrap_callback calcul_aide_personnalisee_logement_foyer
      
      method calculAidePersonnaliseeLogementAccessionPropriete : (calcul_aide_personnalisee_logement_accession_propriete_in Js.t -> calcul_aide_personnalisee_logement_accession_propriete_out Js.t) Js.callback =
        Js.wrap_callback
        calcul_aide_personnalisee_logement_accession_propriete
      
      method eligibiliteAidesPersonnelleLogement : (eligibilite_aides_personnelle_logement_in Js.t -> eligibilite_aides_personnelle_logement_out Js.t) Js.callback =
        Js.wrap_callback eligibilite_aides_personnelle_logement
      
      method ressourcesAidesPersonnelleLogement : (ressources_aides_personnelle_logement_in Js.t -> ressources_aides_personnelle_logement_out Js.t) Js.callback =
        Js.wrap_callback ressources_aides_personnelle_logement
      
      method eligibilitePrestationsFamiliales : (eligibilite_prestations_familiales_in Js.t -> eligibilite_prestations_familiales_out Js.t) Js.callback =
        Js.wrap_callback eligibilite_prestations_familiales
      
      method calculAllocationLogementLocatif : (calcul_allocation_logement_locatif_in Js.t -> calcul_allocation_logement_locatif_out Js.t) Js.callback =
        Js.wrap_callback calcul_allocation_logement_locatif
      
      method calculAllocationLogementFoyer : (calcul_allocation_logement_foyer_in Js.t -> calcul_allocation_logement_foyer_out Js.t) Js.callback =
        Js.wrap_callback calcul_allocation_logement_foyer
      
      method calculAllocationLogementAccessionPropriete : (calcul_allocation_logement_accession_propriete_in Js.t -> calcul_allocation_logement_accession_propriete_out Js.t) Js.callback =
        Js.wrap_callback calcul_allocation_logement_accession_propriete
      
      method calculAidePersonnaliseeLogement : (calcul_aide_personnalisee_logement_in Js.t -> calcul_aide_personnalisee_logement_out Js.t) Js.callback =
        Js.wrap_callback calcul_aide_personnalisee_logement
      
      method eligibilitePrimeDeDemenagement : (eligibilite_prime_de_demenagement_in Js.t -> eligibilite_prime_de_demenagement_out Js.t) Js.callback =
        Js.wrap_callback eligibilite_prime_de_demenagement
      
      method eligibiliteAidePersonnaliseeLogement : (eligibilite_aide_personnalisee_logement_in Js.t -> eligibilite_aide_personnalisee_logement_out Js.t) Js.callback =
        Js.wrap_callback eligibilite_aide_personnalisee_logement
      
      method eligibiliteAllocationLogement : (eligibilite_allocation_logement_in Js.t -> eligibilite_allocation_logement_out Js.t) Js.callback =
        Js.wrap_callback eligibilite_allocation_logement
      
      method calculAllocationLogement : (calcul_allocation_logement_in Js.t -> calcul_allocation_logement_out Js.t) Js.callback =
        Js.wrap_callback calcul_allocation_logement
      
      method calculetteAidesAuLogement : (calculette_aides_au_logement_in Js.t -> calculette_aides_au_logement_out Js.t) Js.callback =
        Js.wrap_callback calculette_aides_au_logement
      
      method calculetteAidesAuLogementGardeAlternee : (calculette_aides_au_logement_garde_alternee_in Js.t -> calculette_aides_au_logement_garde_alternee_out Js.t) Js.callback =
        Js.wrap_callback calculette_aides_au_logement_garde_alternee
      
    end)