From fa84dd4330b420d57b3adeebb41a0020f2426e7f Mon Sep 17 00:00:00 2001 From: Denis Merigoux Date: Thu, 5 Jan 2023 16:20:51 +0100 Subject: [PATCH] Splitting long lines --- compiler/dcalc/from_scopelang.ml | 17 +- .../arrete_2019-09-27.catala_fr | 3 +- .../aides_logement/autres_sources.catala_fr | 3 +- .../code_construction_reglementaire.catala_fr | 3 +- .../allocations_familiales/epilogue.catala_fr | 3 +- examples/tutorial_en/tutorial_en.catala_en | 4 +- french_law/ocaml/law_source/aides_logement.ml | 13022 +++++++++------- 7 files changed, 7140 insertions(+), 5915 deletions(-) diff --git a/compiler/dcalc/from_scopelang.ml b/compiler/dcalc/from_scopelang.ml index b28eddba..dd1471e8 100644 --- a/compiler/dcalc/from_scopelang.ml +++ b/compiler/dcalc/from_scopelang.ml @@ -307,9 +307,20 @@ let rec translate_expr (ctx : 'm ctx) (e : 'm Scopelang.Ast.expr) : let arg_struct = Expr.estruct sc_sig.scope_sig_input_struct field_map (mark_tany m pos) in - Expr.eapp - (Expr.evar sc_sig.scope_sig_scope_var (mark_tany m pos)) - [arg_struct] m + tag_with_log_entry + (Expr.eapp + (tag_with_log_entry + (Expr.evar sc_sig.scope_sig_scope_var (mark_tany m pos)) + BeginCall + [ScopeName.get_info scope; Marked.mark (Expr.pos e) "direct"]) + [ + tag_with_log_entry arg_struct + (VarDef (TStruct sc_sig.scope_sig_input_struct)) + [ScopeName.get_info scope; Marked.mark (Expr.pos e) "input"]; + ] + m) + EndCall + [ScopeName.get_info scope; Marked.mark (Expr.pos e) "direct"] | EApp { f; args } -> (* We insert various log calls to record arguments and outputs of user-defined functions belonging to scopes *) diff --git a/examples/aides_logement/arrete_2019-09-27.catala_fr b/examples/aides_logement/arrete_2019-09-27.catala_fr index fefd65fb..76f84351 100644 --- a/examples/aides_logement/arrete_2019-09-27.catala_fr +++ b/examples/aides_logement/arrete_2019-09-27.catala_fr @@ -800,7 +800,8 @@ Par personne supplémentaire à charge 102 ```catala champ d'application CalculAidePersonnaliséeLogementAccessionPropriété: - exception petit_2 définition calcul_plafond_mensualité_d832_10_3 de date_signature_prêt + exception petit_2 + définition calcul_plafond_mensualité_d832_10_3 de date_signature_prêt sous condition date_courante >= |2023-01-01| et date_signature_prêt >= |1992-06-30| et diff --git a/examples/aides_logement/autres_sources.catala_fr b/examples/aides_logement/autres_sources.catala_fr index f66d9199..239741f9 100644 --- a/examples/aides_logement/autres_sources.catala_fr +++ b/examples/aides_logement/autres_sources.catala_fr @@ -266,7 +266,8 @@ champ d'application CalculetteAidesAuLogementGardeAlternée: # à domicile. (calculette.aide_finale_formule - calculette_sans_garde_alternée.aide_finale_formule) * - ((somme décimal de coefficents_enfants_garde_alternée_pris_en_compte) / + ((somme décimal de + coefficents_enfants_garde_alternée_pris_en_compte) / (décimal de nombre de coefficents_enfants_garde_alternée_pris_en_compte)))) ``` diff --git a/examples/aides_logement/code_construction_reglementaire.catala_fr b/examples/aides_logement/code_construction_reglementaire.catala_fr index 5ec58a60..aaf61adc 100644 --- a/examples/aides_logement/code_construction_reglementaire.catala_fr +++ b/examples/aides_logement/code_construction_reglementaire.catala_fr @@ -127,7 +127,8 @@ champ d'application RessourcesAidesPersonnelleLogement: ressources_personnes_vivant_habituellement_foyer définition ressources_personnes_vivant_habituellement_foyer égal à - somme argent de personne.ressources pour personne parmi personnes_vivant_habituellement_foyer + somme argent de personne.ressources pour + personne parmi personnes_vivant_habituellement_foyer ``` Sont considérées comme vivant habituellement au foyer les personnes y ayant diff --git a/examples/allocations_familiales/epilogue.catala_fr b/examples/allocations_familiales/epilogue.catala_fr index 25f932cc..553c7799 100644 --- a/examples/allocations_familiales/epilogue.catala_fr +++ b/examples/allocations_familiales/epilogue.catala_fr @@ -10,7 +10,8 @@ la fonction du bloc de code ci-dessous. ```catala-metadata champ d'application EnfantLePlusÂgé: définition le_plus_âgé égal à - potentiel_plus_âgé parmi enfants tel que potentiel_plus_âgé.date_de_naissance est minimum + potentiel_plus_âgé parmi enfants tel que + potentiel_plus_âgé.date_de_naissance est minimum ou si collection vide alors Enfant { -- identifiant: -1 -- obligation_scolaire: Pendant diff --git a/examples/tutorial_en/tutorial_en.catala_en b/examples/tutorial_en/tutorial_en.catala_en index d2fd8ab6..d4070e94 100644 --- a/examples/tutorial_en/tutorial_en.catala_en +++ b/examples/tutorial_en/tutorial_en.catala_en @@ -587,8 +587,8 @@ scope Test5: } definition income_tax equals if normal_income_tax_computation_applies then - (output of NewIncomeTaxComputationFixed with { -- individual: individual }) - .income_tax + (output of NewIncomeTaxComputationFixed with + { -- individual: individual }).income_tax else $0 # Insert some other modes of computation here ``` diff --git a/french_law/ocaml/law_source/aides_logement.ml b/french_law/ocaml/law_source/aides_logement.ml index 6b5baee2..2f0fd6dd 100644 --- a/french_law/ocaml/law_source/aides_logement.ml +++ b/french_law/ocaml/law_source/aides_logement.ml @@ -2201,7 +2201,7 @@ let calcul_equivalence_loyer_minimale (calcul_equivalence_loyer_minimale_in: Cal "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2901; start_column=14; end_line=2901; end_column=41; + start_line=2675; start_column=14; end_line=2675; end_column=41; law_headings=["Article 31"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -2239,8 +2239,8 @@ let calcul_equivalence_loyer_minimale (calcul_equivalence_loyer_minimale_in: Cal "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2866; start_column=5; - end_line=2866; end_column=26; + start_line=2640; start_column=5; + end_line=2640; end_column=26; law_headings=["Article 31"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -2275,7 +2275,7 @@ let calcul_equivalence_loyer_minimale (calcul_equivalence_loyer_minimale_in: Cal TrancheRevenu.taux = (decimal_of_string "0.328")})|]))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2817; start_column=14; end_line=2817; end_column=38; + start_line=2591; start_column=14; end_line=2591; end_column=38; law_headings=["Article 31"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -2326,7 +2326,7 @@ let calcul_equivalence_loyer_minimale (calcul_equivalence_loyer_minimale_in: Cal "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4026; start_column=14; end_line=4026; end_column=50; + start_line=4037; start_column=14; end_line=4037; end_column=50; law_headings=["Article D832-26"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -2383,8 +2383,8 @@ let calcul_equivalence_loyer_minimale (calcul_equivalence_loyer_minimale_in: Cal "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4077; start_column=5; - end_line=4077; end_column=26; + start_line=4088; start_column=5; + end_line=4088; end_column=26; law_headings=["Article D832-26"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -2442,7 +2442,7 @@ let calcul_equivalence_loyer_minimale (calcul_equivalence_loyer_minimale_in: Cal (decimal_of_string "12."))))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4039; start_column=14; end_line=4039; end_column=21; + start_line=4050; start_column=14; end_line=4050; end_column=21; law_headings=["Article D832-26"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -2532,8 +2532,8 @@ let calcul_nombre_part_logement_foyer (calcul_nombre_part_logement_foyer_in: Cal "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3991; start_column=5; - end_line=3991; end_column=26; + start_line=4002; start_column=5; + end_line=4002; end_column=26; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -2577,7 +2577,7 @@ let calcul_nombre_part_logement_foyer (calcul_nombre_part_logement_foyer_in: Cal (integer_of_string "4")))))))))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3904; start_column=14; end_line=3904; end_column=36; + start_line=3915; start_column=14; end_line=3915; end_column=36; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -2639,7 +2639,7 @@ let calcul_nombre_parts_accession_propriete (calcul_nombre_parts_accession_propr "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3248; start_column=14; end_line=3248; end_column=36; + start_line=3259; start_column=14; end_line=3259; end_column=36; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -2879,7 +2879,7 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2333; start_column=14; end_line=2333; end_column=36; + start_line=2344; start_column=14; end_line=2344; end_column=36; law_headings=["Article R824-3"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -2937,8 +2937,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2301; start_column=14; - end_line=2301; end_column=36; + start_line=2312; start_column=14; + end_line=2312; end_column=36; law_headings=["Article R824-2"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -2953,8 +2953,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn (fun (_: unit) -> depense_logement_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2205; start_column=14; - end_line=2205; end_column=36; + start_line=2216; start_column=14; + end_line=2216; end_column=36; law_headings=["Article R824-1"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -2995,8 +2995,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2214; start_column=14; - end_line=2214; end_column=36; + start_line=2225; start_column=14; + end_line=2225; end_column=36; law_headings=["Article R824-1"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3028,8 +3028,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2310; start_column=14; - end_line=2310; end_column=36; + start_line=2321; start_column=14; + end_line=2321; end_column=36; law_headings=["Article R824-2"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3082,8 +3082,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2175; start_column=20; - end_line=2175; end_column=55; + start_line=2186; start_column=20; + end_line=2186; end_column=55; law_headings=["Article R824-1"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3122,8 +3122,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2191; start_column=20; - end_line=2191; end_column=51; + start_line=2202; start_column=20; + end_line=2202; end_column=51; law_headings=["Article R824-1"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3162,8 +3162,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2257; start_column=7; - end_line=2257; end_column=42; + start_line=2268; start_column=7; + end_line=2268; end_column=42; law_headings=["Article R824-2"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3202,8 +3202,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2285; start_column=7; - end_line=2285; end_column=51; + start_line=2296; start_column=7; + end_line=2296; end_column=51; law_headings=["Article R824-2"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3268,8 +3268,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2233; start_column=14; - end_line=2233; end_column=28; + start_line=2244; start_column=14; + end_line=2244; end_column=28; law_headings=["Article R824-2"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3288,8 +3288,8 @@ let impaye_depense_logement (impaye_depense_logement_in: ImpayeDepenseLogementIn montant_dette_ else (money_of_cents_string "0")))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2170; start_column=14; - end_line=2170; end_column=28; + start_line=2181; start_column=14; + end_line=2181; end_column=28; law_headings=["Article R824-1"; "Section 1 : Seuils de constitution d'un impayé"; "Chapitre IV : Impayés de dépenses de logement"; @@ -3786,7 +3786,7 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1893; start_column=14; end_line=1893; end_column=29; + start_line=1904; start_column=14; end_line=1904; end_column=29; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -3907,12 +3907,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=944; start_column=14; - end_line=944; end_column=40; + start_line=1069; start_column=14; + end_line=1069; end_column=40; law_headings=["Article 14"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2020) (10) (1))) @@ -3975,11 +3975,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "6")))))))))))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=220; start_column=14; - end_line=220; end_column=40; + start_line=273; start_column=14; + end_line=273; end_column=40; law_headings=["Article 14"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -4119,7 +4119,69 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Chapitre III : Calcul des aides personnelles au logement en secteur locatif"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_gte_dat_dat date_courante_ - (date_of_numbers (2022) (7) (1))))) + (date_of_numbers (2023) (1) (1))))) + (fun (_: unit) -> + if + (o_eq nombre_personnes_a_charge_ (integer_of_string + "0")) then + (match situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string "494900") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string "709000")) else + ( if + (o_eq nombre_personnes_a_charge_ (integer_of_string + "1")) then (money_of_cents_string "845600") else + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "2")) then + (money_of_cents_string "864600") else + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "3")) then + (money_of_cents_string "897700") else + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "4")) then + (money_of_cents_string "931100") else + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "5")) then + (money_of_cents_string "964200") else + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "6")) then + (money_of_cents_string "997500") else + (o_add_mon_mon (money_of_cents_string + "997500") + (o_mult_mon_rat + (money_of_cents_string "32800") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string "6"))))))))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=559; start_column=11; + end_line=559; end_column=41; + law_headings=["Secteur locatif"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/archives.catala_fr"; + start_line=27; start_column=14; + end_line=27; end_column=44; + law_headings=["Article 15"; + "Articles valables du 1er juillet 2022 au 31 décembre 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2022) (7) (1))) + (o_lt_dat_dat date_courante_ + (date_of_numbers (2022) (12) (31)))))) (fun (_: unit) -> if (o_eq nombre_personnes_a_charge_ (integer_of_string @@ -4172,11 +4234,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1313; start_column=14; - end_line=1313; end_column=44; + start_line=822; start_column=14; + end_line=822; end_column=44; law_headings=["Article 15"; - "Articles valables du 1er janvier 2022 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er janvier 2022 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2022) (1) (1))) @@ -4234,12 +4296,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1367; start_column=14; - end_line=1367; end_column=44; + start_line=1418; start_column=14; + end_line=1418; end_column=44; law_headings=["Article 15"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er janvier 2020 au 1er janvier 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er janvier 2020 au 31 décembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2022) (1) (1))) @@ -4327,11 +4388,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=306; start_column=14; - end_line=306; end_column=29; + start_line=359; start_column=14; + end_line=359; end_column=29; law_headings=["Article 14"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -4389,12 +4450,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1027; start_column=14; - end_line=1027; end_column=29; + start_line=1152; start_column=14; + end_line=1152; end_column=29; law_headings=["Article 14"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2020) (10) (1))) @@ -4491,8 +4552,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=527; start_column=5; - end_line=528; end_column=34; + start_line=529; start_column=5; + end_line=530; end_column=34; law_headings=["Article 16"; "Chapitre III : Calcul des aides personnelles au logement en secteur locatif"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -4531,8 +4592,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=536; start_column=5; - end_line=537; end_column=34; + start_line=538; start_column=5; + end_line=539; end_column=34; law_headings=["Article 16"; "Chapitre III : Calcul des aides personnelles au logement en secteur locatif"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -4571,8 +4632,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=545; start_column=5; - end_line=545; end_column=35; + start_line=547; start_column=5; + end_line=547; end_column=35; law_headings=["Article 16"; "Chapitre III : Calcul des aides personnelles au logement en secteur locatif"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -4625,11 +4686,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=353; start_column=5; - end_line=354; end_column=34; + start_line=406; start_column=5; + end_line=407; end_column=34; law_headings=["Article 16"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -4668,11 +4729,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=362; start_column=5; - end_line=363; end_column=34; + start_line=415; start_column=5; + end_line=416; end_column=34; law_headings=["Article 16"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -4711,11 +4772,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=371; start_column=5; - end_line=371; end_column=35; + start_line=424; start_column=5; + end_line=424; end_column=35; law_headings=["Article 16"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -4768,12 +4829,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1072; start_column=5; - end_line=1073; end_column=34; + start_line=1197; start_column=5; + end_line=1198; end_column=34; law_headings=["Article 16"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -4812,12 +4873,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1081; start_column=5; - end_line=1082; end_column=34; + start_line=1206; start_column=5; + end_line=1207; end_column=34; law_headings=["Article 16"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -4856,12 +4917,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1090; start_column=5; - end_line=1090; end_column=35; + start_line=1215; start_column=5; + end_line=1215; end_column=35; law_headings=["Article 16"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -4965,11 +5026,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=126; start_column=5; - end_line=126; end_column=61; + start_line=179; start_column=5; + end_line=179; end_column=61; law_headings=["Article 8"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -5000,12 +5061,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=850; start_column=5; - end_line=850; end_column=61; + start_line=975; start_column=5; + end_line=975; end_column=61; law_headings=["Article 8"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -5078,11 +5139,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=119; start_column=14; - end_line=119; end_column=37; + start_line=172; start_column=14; + end_line=172; end_column=37; law_headings=["Article 8"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -5111,12 +5172,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=843; start_column=14; - end_line=843; end_column=37; + start_line=968; start_column=14; + end_line=968; end_column=37; law_headings=["Article 8"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -5281,11 +5342,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=34; start_column=5; - end_line=35; end_column=34; + start_line=87; start_column=5; + end_line=88; end_column=34; law_headings=["Article 7"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -5322,11 +5383,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=44; start_column=5; - end_line=45; end_column=34; + start_line=97; start_column=5; + end_line=98; end_column=34; law_headings=["Article 7"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -5363,11 +5424,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=54; start_column=5; - end_line=54; end_column=35; + start_line=107; start_column=5; + end_line=107; end_column=35; law_headings=["Article 7"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -5415,12 +5476,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=759; start_column=5; - end_line=760; end_column=34; + start_line=884; start_column=5; + end_line=885; end_column=34; law_headings=["Article 7"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -5457,12 +5518,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=769; start_column=5; - end_line=770; end_column=34; + start_line=894; start_column=5; + end_line=895; end_column=34; law_headings=["Article 7"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -5499,12 +5560,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=779; start_column=5; - end_line=779; end_column=35; + start_line=904; start_column=5; + end_line=904; end_column=35; law_headings=["Article 7"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -5581,8 +5642,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=570; start_column=29; - end_line=570; end_column=64; + start_line=572; start_column=29; + end_line=572; end_column=64; law_headings=["Article 16"; "Chapitre III : Calcul des aides personnelles au logement en secteur locatif"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -5612,11 +5673,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=397; start_column=29; - end_line=397; end_column=64; + start_line=450; start_column=29; + end_line=450; end_column=64; law_headings=["Article 16"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -5646,12 +5707,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1116; start_column=29; - end_line=1116; end_column=64; + start_line=1241; start_column=29; + end_line=1241; end_column=64; law_headings=["Article 16"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -5714,11 +5775,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=161; start_column=29; - end_line=161; end_column=64; + start_line=214; start_column=29; + end_line=214; end_column=64; law_headings=["Article 9"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -5740,12 +5801,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=885; start_column=29; - end_line=885; end_column=64; + start_line=1010; start_column=29; + end_line=1010; end_column=64; law_headings=["Article 9"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -5777,7 +5838,7 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4199; start_column=14; end_line=4199; end_column=29; + start_line=4210; start_column=14; end_line=4210; end_column=29; law_headings=["Article D842-2"; "Section 1 : Secteur locatif ordinaire"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -5888,7 +5949,7 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1794; start_column=14; end_line=1794; end_column=28; + start_line=1805; start_column=14; end_line=1805; end_column=28; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -5936,8 +5997,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1843; start_column=5; - end_line=1843; end_column=50; + start_line=1854; start_column=5; + end_line=1854; end_column=50; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -5950,8 +6011,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme (fun (_: unit) -> param_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1829; start_column=14; - end_line=1829; end_column=36; + start_line=1840; start_column=14; + end_line=1840; end_column=36; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6047,11 +6108,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=175; start_column=14; - end_line=175; end_column=36; + start_line=228; start_column=14; + end_line=228; end_column=36; law_headings=["Article 13"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -6081,12 +6142,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=899; start_column=14; - end_line=899; end_column=36; + start_line=1024; start_column=14; + end_line=1024; end_column=36; law_headings=["Article 13"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -6155,12 +6216,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=978; start_column=14; - end_line=978; end_column=28; + start_line=1103; start_column=14; + end_line=1103; end_column=28; law_headings=["Article 14"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2020) (10) (1))) @@ -6176,11 +6237,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme (decimal_of_string "100.")))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=254; start_column=14; - end_line=254; end_column=28; + start_line=307; start_column=14; + end_line=307; end_column=28; law_headings=["Article 14"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -6234,8 +6295,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1853; start_column=14; - end_line=1853; end_column=36; + start_line=1864; start_column=14; + end_line=1864; end_column=36; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6325,12 +6386,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1002; start_column=14; - end_line=1002; end_column=33; + start_line=1127; start_column=14; + end_line=1127; end_column=33; law_headings=["Article 14"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2020) (10) (1))) @@ -6369,11 +6430,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme else (decimal_of_string "0.")))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=281; start_column=14; - end_line=281; end_column=33; + start_line=334; start_column=14; + end_line=334; end_column=33; law_headings=["Article 14"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -6463,8 +6524,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1870; start_column=14; - end_line=1870; end_column=36; + start_line=1881; start_column=14; + end_line=1881; end_column=36; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6569,12 +6630,12 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1009; start_column=14; - end_line=1009; end_column=33; + start_line=1134; start_column=14; + end_line=1134; end_column=33; law_headings=["Article 14"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2020) (10) (1))) @@ -6589,11 +6650,11 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme (decimal_of_string "100000.")))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=288; start_column=14; - end_line=288; end_column=33; + start_line=341; start_column=14; + end_line=341; end_column=33; law_headings=["Article 14"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -6707,7 +6768,7 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1953; start_column=14; end_line=1953; end_column=42; + start_line=1964; start_column=14; end_line=1964; end_column=42; law_headings=["Article D823-17"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6743,8 +6804,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1902; start_column=14; - end_line=1902; end_column=36; + start_line=1913; start_column=14; + end_line=1913; end_column=36; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6802,7 +6863,7 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1919; start_column=14; end_line=1919; end_column=39; + start_line=1930; start_column=14; end_line=1930; end_column=39; law_headings=["Article D823-17"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6847,7 +6908,7 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1776; start_column=14; end_line=1776; end_column=33; + start_line=1787; start_column=14; end_line=1787; end_column=33; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6882,8 +6943,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1846; start_column=13; - end_line=1846; end_column=74; + start_line=1857; start_column=13; + end_line=1857; end_column=74; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6894,8 +6955,8 @@ let calcul_aide_personnalisee_logement_locatif (calcul_aide_personnalisee_logeme "Code de la construction et de l'habitation"]}))) then () else raise (AssertionFailed {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1846; start_column=13; - end_line=1846; end_column=74; + start_line=1857; start_column=13; + end_line=1857; end_column=74; law_headings=["Article D823-16"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -6971,7 +7032,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2781; start_column=14; end_line=2781; end_column=35; + start_line=2555; start_column=14; end_line=2555; end_column=35; law_headings=["Article 30"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -6997,7 +7058,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2756; start_column=14; end_line=2756; end_column=41; + start_line=2530; start_column=14; end_line=2530; end_column=41; law_headings=["Article 28"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -7023,7 +7084,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2767; start_column=14; end_line=2767; end_column=42; + start_line=2541; start_column=14; end_line=2541; end_column=42; law_headings=["Article 29"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -7059,8 +7120,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3838; start_column=14; - end_line=3838; end_column=35; + start_line=3849; start_column=14; + end_line=3849; end_column=35; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7148,8 +7209,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2702; start_column=14; - end_line=2702; end_column=48; + start_line=2476; start_column=14; + end_line=2476; end_column=48; law_headings=["Article 27"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -7259,11 +7320,11 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=499; start_column=14; - end_line=499; end_column=48; + start_line=552; start_column=14; + end_line=552; end_column=48; law_headings=["Article 27"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -7373,12 +7434,12 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1222; start_column=14; - end_line=1222; end_column=48; + start_line=1347; start_column=14; + end_line=1347; end_column=48; law_headings=["Article 27"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -7501,8 +7562,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3771; start_column=14; - end_line=3771; end_column=36; + start_line=3782; start_column=14; + end_line=3782; end_column=36; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7541,7 +7602,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "calcul_nombre_parts.condition_2_du_832_25"] (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3927; start_column=14; end_line=3927; end_column=55; + start_line=3938; start_column=14; end_line=3938; end_column=55; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7553,7 +7614,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3927; start_column=14; end_line=3927; end_column=55; + start_line=3938; start_column=14; end_line=3938; end_column=55; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7566,7 +7627,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3927; start_column=14; end_line=3927; end_column=55; + start_line=3938; start_column=14; end_line=3938; end_column=55; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7581,7 +7642,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "calcul_nombre_parts.nombre_personnes_à_charge"] (embed_integer) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3923; start_column=14; end_line=3923; end_column=59; + start_line=3934; start_column=14; end_line=3934; end_column=59; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7593,7 +7654,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3923; start_column=14; end_line=3923; end_column=59; + start_line=3934; start_column=14; end_line=3934; end_column=59; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7606,7 +7667,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3923; start_column=14; end_line=3923; end_column=59; + start_line=3934; start_column=14; end_line=3934; end_column=59; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7622,7 +7683,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement (embed_situation_familiale_calcul_a_p_l) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3925; start_column=14; end_line=3925; end_column=64; + start_line=3936; start_column=14; end_line=3936; end_column=64; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7634,7 +7695,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3925; start_column=14; end_line=3925; end_column=64; + start_line=3936; start_column=14; end_line=3936; end_column=64; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7647,7 +7708,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3925; start_column=14; end_line=3925; end_column=64; + start_line=3936; start_column=14; end_line=3936; end_column=64; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7681,7 +7742,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2930; start_column=14; end_line=2930; end_column=41; + start_line=2704; start_column=14; end_line=2704; end_column=41; law_headings=["Article 32"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -7710,7 +7771,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2791; start_column=14; end_line=2791; end_column=48; + start_line=2565; start_column=14; end_line=2565; end_column=48; law_headings=["Article 30"; "Chapitre V : Calcul de l'aide personnalisée au logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -7739,7 +7800,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3745; start_column=14; end_line=3745; end_column=40; + start_line=3756; start_column=14; end_line=3756; end_column=40; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7784,8 +7845,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3929; start_column=14; - end_line=3929; end_column=36; + start_line=3940; start_column=14; + end_line=3940; end_column=36; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7820,8 +7881,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4125; start_column=14; - end_line=4125; end_column=44; + start_line=4136; start_column=14; + end_line=4136; end_column=44; law_headings=["Article D832-27"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7856,7 +7917,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement (embed_money) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3761; start_column=14; end_line=3761; end_column=75; + start_line=3772; start_column=14; end_line=3772; end_column=75; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7868,7 +7929,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3761; start_column=14; end_line=3761; end_column=75; + start_line=3772; start_column=14; end_line=3772; end_column=75; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7881,7 +7942,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3761; start_column=14; end_line=3761; end_column=75; + start_line=3772; start_column=14; end_line=3772; end_column=75; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7897,7 +7958,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3759; start_column=14; end_line=3759; end_column=69; + start_line=3770; start_column=14; end_line=3770; end_column=69; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7909,7 +7970,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3759; start_column=14; end_line=3759; end_column=69; + start_line=3770; start_column=14; end_line=3770; end_column=69; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7922,7 +7983,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3759; start_column=14; end_line=3759; end_column=69; + start_line=3770; start_column=14; end_line=3770; end_column=69; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7938,7 +7999,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement (embed_decimal) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3763; start_column=14; end_line=3763; end_column=70; + start_line=3774; start_column=14; end_line=3774; end_column=70; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7950,7 +8011,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3763; start_column=14; end_line=3763; end_column=70; + start_line=3774; start_column=14; end_line=3774; end_column=70; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -7963,7 +8024,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3763; start_column=14; end_line=3763; end_column=70; + start_line=3774; start_column=14; end_line=3774; end_column=70; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8008,8 +8069,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3941; start_column=5; - end_line=3941; end_column=26; + start_line=3952; start_column=5; + end_line=3952; end_column=26; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8026,7 +8087,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement n_nombre_parts_d832_25_))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3853; start_column=14; end_line=3853; end_column=49; + start_line=3864; start_column=14; end_line=3864; end_column=49; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8073,8 +8134,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4129; start_column=14; - end_line=4129; end_column=55; + start_line=4140; start_column=14; + end_line=4140; end_column=55; law_headings=["Article D832-27"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8135,7 +8196,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3757; start_column=14; end_line=3757; end_column=40; + start_line=3768; start_column=14; end_line=3768; end_column=40; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8176,8 +8237,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3958; start_column=5; - end_line=3958; end_column=26; + start_line=3969; start_column=5; + end_line=3969; end_column=26; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8198,7 +8259,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement (decimal_of_string "100.")))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3874; start_column=14; end_line=3874; end_column=49; + start_line=3885; start_column=14; end_line=3885; end_column=49; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8239,8 +8300,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3785; start_column=14; - end_line=3785; end_column=36; + start_line=3796; start_column=14; + end_line=3796; end_column=36; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8323,8 +8384,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3964; start_column=5; - end_line=3964; end_column=26; + start_line=3975; start_column=5; + end_line=3975; end_column=26; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8343,7 +8404,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement coefficient_prise_en_charge_d832_25_coeff_arrondi_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3877; start_column=14; end_line=3877; end_column=49; + start_line=3888; start_column=14; end_line=3888; end_column=49; law_headings=["Article D832-25"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8383,8 +8444,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3799; start_column=14; - end_line=3799; end_column=36; + start_line=3810; start_column=14; + end_line=3810; end_column=36; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8461,7 +8522,7 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3724; start_column=14; end_line=3724; end_column=33; + start_line=3735; start_column=14; end_line=3735; end_column=33; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8503,8 +8564,8 @@ let calcul_aide_personnalisee_logement_foyer (calcul_aide_personnalisee_logement "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3820; start_column=14; - end_line=3820; end_column=36; + start_line=3831; start_column=14; + end_line=3831; end_column=36; law_headings=["Article D832-24"; "Sous-Section 2 : Conditions d'octroi de l'aide personnalisée au logement aux personnes résidant dans un logement-foyer"; "Section 3 : Logements-foyers"; @@ -8596,9 +8657,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2560; start_column=14; end_line=2560; end_column=41; - law_headings=["Article 20"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2334; start_column=14; end_line=2334; end_column=41; + law_headings=["Article 20"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> money_of_cents_string "500")) with @@ -8622,9 +8682,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2571; start_column=14; end_line=2571; end_column=42; - law_headings=["Article 21"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2345; start_column=14; end_line=2345; end_column=42; + law_headings=["Article 21"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> money_of_cents_string "1000")) with @@ -8648,9 +8707,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2580; start_column=15; end_line=2580; end_column=49; - law_headings=["Article 22"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2354; start_column=15; end_line=2354; end_column=49; + law_headings=["Article 22"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> money_of_cents_string "2211133")) with @@ -8674,9 +8732,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2673; start_column=14; end_line=2673; end_column=48; - law_headings=["Article 26"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2447; start_column=14; end_line=2447; end_column=48; + law_headings=["Article 26"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> decimal_of_string "16.25")) with @@ -8700,9 +8757,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2595; start_column=14; end_line=2595; end_column=47; - law_headings=["Article 23"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2369; start_column=14; end_line=2369; end_column=47; + law_headings=["Article 23"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> money_of_cents_string "560085")) with @@ -8726,9 +8782,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2596; start_column=14; end_line=2596; end_column=47; - law_headings=["Article 23"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2370; start_column=14; end_line=2370; end_column=47; + law_headings=["Article 23"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> decimal_of_string "0.208")) with @@ -8752,9 +8807,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2597; start_column=14; end_line=2597; end_column=47; - law_headings=["Article 23"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2371; start_column=14; end_line=2371; end_column=47; + law_headings=["Article 23"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> decimal_of_string "0.416")) with @@ -8799,7 +8853,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "calcul_nombre_parts.nombre_personnes_à_charge"] (embed_integer) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3269; start_column=14; end_line=3269; end_column=59; + start_line=3280; start_column=14; end_line=3280; end_column=59; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -8810,7 +8864,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3269; start_column=14; end_line=3269; end_column=59; + start_line=3280; start_column=14; end_line=3280; end_column=59; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -8822,7 +8876,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3269; start_column=14; end_line=3269; end_column=59; + start_line=3280; start_column=14; end_line=3280; end_column=59; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -8837,7 +8891,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna (embed_situation_familiale_calcul_a_p_l) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3271; start_column=14; end_line=3271; end_column=64; + start_line=3282; start_column=14; end_line=3282; end_column=64; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -8848,7 +8902,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3271; start_column=14; end_line=3271; end_column=64; + start_line=3282; start_column=14; end_line=3282; end_column=64; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -8860,7 +8914,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3271; start_column=14; end_line=3271; end_column=64; + start_line=3282; start_column=14; end_line=3282; end_column=64; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -8893,9 +8947,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2655; start_column=14; end_line=2655; end_column=50; - law_headings=["Article 25"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2429; start_column=14; end_line=2429; end_column=50; + law_headings=["Article 25"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} true)) (fun (_: unit) -> @@ -8995,10 +9048,9 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2628; start_column=7; - end_line=2628; end_column=18; - law_headings=["Article 24"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2402; start_column=7; + end_line=2402; end_column=18; + law_headings=["Article 24"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ @@ -9026,11 +9078,11 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=464; start_column=7; - end_line=464; end_column=18; + start_line=517; start_column=7; + end_line=517; end_column=18; law_headings=["Article 24"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -9060,12 +9112,12 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1185; start_column=7; - end_line=1185; end_column=18; + start_line=1310; start_column=7; + end_line=1310; end_column=18; law_headings=["Article 24"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_lt_dat_dat date_courante_ @@ -9105,10 +9157,9 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2549; start_column=29; - end_line=2549; end_column=64; - law_headings=["Article 19"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2323; start_column=29; + end_line=2323; end_column=64; + law_headings=["Article 19"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_gte_dat_dat date_courante_ (date_of_numbers (2022) (7) (1))))) @@ -9128,11 +9179,11 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=430; start_column=29; - end_line=430; end_column=64; + start_line=483; start_column=29; + end_line=483; end_column=64; law_headings=["Article 19"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -9154,12 +9205,12 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1151; start_column=29; - end_line=1151; end_column=64; + start_line=1276; start_column=29; + end_line=1276; end_column=64; law_headings=["Article 19"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -9193,8 +9244,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3118; start_column=14; - end_line=3118; end_column=36; + start_line=3129; start_column=14; + end_line=3129; end_column=36; law_headings=["Article D832-10"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -9248,8 +9299,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3583; start_column=5; - end_line=3583; end_column=28; + start_line=3594; start_column=5; + end_line=3594; end_column=28; law_headings=["Article D832-18"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -9261,7 +9312,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna (fun (_: unit) -> ressources_menage_arrondies_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3575; start_column=14; end_line=3575; end_column=44; + start_line=3586; start_column=14; end_line=3586; end_column=44; law_headings=["Article D832-18"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -9308,379 +9359,4654 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Calcul du montant de l'aide personnalisée au logement"; "Déclarations des champs d'application"; "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=616; start_column=5; - end_line=619; end_column=33; - law_headings=["Article 17"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1992) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> true - | TypePret.D331_63_64 _ -> false - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) + ([|(fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=805; start_column=5; + end_line=811; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2023) (1) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1992) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> false + | NeufOuAncien.Ancien ameliore_par_occupant_ -> + (match ameliore_par_occupant_ + with + | AmelioreParOccupant.Oui _ -> + true + | AmelioreParOccupant.Non _ -> + false)) + (match type_pret_ + with + | TypePret.D331_32 _ -> false + | TypePret.D331_63_64 _ -> true + | TypePret.D331_59_8 _ -> false + | TypePret.D331_76_1 _ -> false + | TypePret.Autre _ -> false)))))) + (fun (_: unit) -> + o_mult_mon_rat + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string "86900") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string "97100")) + else + (o_add_mon_mon (money_of_cents_string + "107300") + (o_mult_mon_rat + (money_of_cents_string "10200") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string "1")))))) + taux_francs_vers_euros_))|]) + (fun (_: unit) -> true) (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "208500") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "251500")) - else - (o_add_mon_mon (money_of_cents_string - "294500") - (o_mult_mon_rat (money_of_cents_string - "43000") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "186000") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "223900")) - else - (o_add_mon_mon (money_of_cents_string - "261800") - (o_mult_mon_rat (money_of_cents_string - "37900") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "173600") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "208200")) - else - (o_add_mon_mon (money_of_cents_string - "242800") - (o_mult_mon_rat (money_of_cents_string - "35600") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=705; start_column=5; - end_line=707; end_column=33; - law_headings=["Article 17"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> true - | TypePret.D331_63_64 _ -> false - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "184000") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "220000")) - else - (o_add_mon_mon (money_of_cents_string - "260000") - (o_mult_mon_rat (money_of_cents_string - "38000") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "164200") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "197700")) - else - (o_add_mon_mon (money_of_cents_string - "231200") - (o_mult_mon_rat (money_of_cents_string - "33500") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "153200") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "183700")) - else - (o_add_mon_mon (money_of_cents_string - "214200") - (o_mult_mon_rat (money_of_cents_string - "30500") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=748; start_column=5; - end_line=750; end_column=33; - law_headings=["Article 17"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> true - | TypePret.D331_63_64 _ -> false - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "148100") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "178700")) - else - (o_add_mon_mon (money_of_cents_string - "209300") - (o_mult_mon_rat (money_of_cents_string - "30600") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "132000") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "158900")) - else - (o_add_mon_mon (money_of_cents_string - "185800") - (o_mult_mon_rat (money_of_cents_string - "26900") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "123300") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "147900")) - else - (o_add_mon_mon (money_of_cents_string - "172500") - (o_mult_mon_rat (money_of_cents_string - "24600") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=799; start_column=5; - end_line=802; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1992) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "208500") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "251500")) - else - (o_add_mon_mon (money_of_cents_string - "294500") - (o_mult_mon_rat (money_of_cents_string - "43000") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "186000") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "223900")) - else - (o_add_mon_mon (money_of_cents_string - "261800") - (o_mult_mon_rat (money_of_cents_string - "37900") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "173600") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "208200")) - else - (o_add_mon_mon (money_of_cents_string - "242800") - (o_mult_mon_rat (money_of_cents_string - "34600") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([|(fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1051; start_column=5; + end_line=1055; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1992) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "208500") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "251500")) else + (o_add_mon_mon + (money_of_cents_string + "294500") + (o_mult_mon_rat + (money_of_cents_string + "43000") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "186000") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "223900")) else + (o_add_mon_mon + (money_of_cents_string + "261800") + (o_mult_mon_rat + (money_of_cents_string + "37900") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "173600") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "208200")) else + (o_add_mon_mon + (money_of_cents_string + "242800") + (o_mult_mon_rat + (money_of_cents_string + "34600") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1084; start_column=5; + end_line=1088; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1992) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "167800") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "202500")) else + (o_add_mon_mon + (money_of_cents_string + "237200") + (o_mult_mon_rat + (money_of_cents_string + "34700") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "149600") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "180100")) else + (o_add_mon_mon + (money_of_cents_string + "210600") + (o_mult_mon_rat + (money_of_cents_string + "30500") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "139700") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "167600")) else + (o_add_mon_mon + (money_of_cents_string + "195500") + (o_mult_mon_rat + (money_of_cents_string + "27900") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1117; start_column=5; + end_line=1121; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2000) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "198100") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "239000")) else + (o_add_mon_mon + (money_of_cents_string + "279900") + (o_mult_mon_rat + (money_of_cents_string + "40900") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "176800") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "212800")) else + (o_add_mon_mon + (money_of_cents_string + "248800") + (o_mult_mon_rat + (money_of_cents_string + "36000") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "165000") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "197900")) else + (o_add_mon_mon + (money_of_cents_string + "230800") + (o_mult_mon_rat + (money_of_cents_string + "32900") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1150; start_column=5; + end_line=1154; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2000) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "159500") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "192500")) else + (o_add_mon_mon + (money_of_cents_string + "225500") + (o_mult_mon_rat + (money_of_cents_string + "33000") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "142200") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "171200")) else + (o_add_mon_mon + (money_of_cents_string + "200200") + (o_mult_mon_rat + (money_of_cents_string + "29000") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "132800") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "159300")) else + (o_add_mon_mon + (money_of_cents_string + "185800") + (o_mult_mon_rat + (money_of_cents_string + "26500") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1183; start_column=5; + end_line=1187; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2000) (6) (30))) + (o_and + (o_lte_dat_dat param_ + (date_of_numbers (2001) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "200100") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "141400")) else + (o_add_mon_mon + (money_of_cents_string + "182700") + (o_mult_mon_rat + (money_of_cents_string + "41300") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "178600") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "215000")) else + (o_add_mon_mon + (money_of_cents_string + "251400") + (o_mult_mon_rat + (money_of_cents_string + "36400") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "166700") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "199900")) else + (o_add_mon_mon + (money_of_cents_string + "233100") + (o_mult_mon_rat + (money_of_cents_string + "33200") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1216; start_column=5; + end_line=1220; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2000) (6) (30))) + (o_and + (o_lte_dat_dat param_ + (date_of_numbers (2001) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "161100") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "194400")) else + (o_add_mon_mon + (money_of_cents_string + "227700") + (o_mult_mon_rat + (money_of_cents_string + "33300") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "143600") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "172900")) else + (o_add_mon_mon + (money_of_cents_string + "202200") + (o_mult_mon_rat + (money_of_cents_string + "29300") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "134100") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "160900")) else + (o_add_mon_mon + (money_of_cents_string + "187700") + (o_mult_mon_rat + (money_of_cents_string + "26800") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1249; start_column=5; + end_line=1253; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2001) (7) (1))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2001) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "202500") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "244300")) else + (o_add_mon_mon + (money_of_cents_string + "286100") + (o_mult_mon_rat + (money_of_cents_string + "41800") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "180700") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "217500")) else + (o_add_mon_mon + (money_of_cents_string + "254300") + (o_mult_mon_rat + (money_of_cents_string + "36800") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "168700") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "202300")) else + (o_add_mon_mon + (money_of_cents_string + "235900") + (o_mult_mon_rat + (money_of_cents_string + "33600") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1282; start_column=5; + end_line=1286; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2002) (1) (1))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2002) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "30871") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "37243")) else + (o_add_mon_mon + (money_of_cents_string + "43615") + (o_mult_mon_rat + (money_of_cents_string + "6372") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "27548") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "33148")) else + (o_add_mon_mon + (money_of_cents_string + "38768") + (o_mult_mon_rat + (money_of_cents_string + "5610") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25718") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30840")) else + (o_add_mon_mon + (money_of_cents_string + "35962") + (o_mult_mon_rat + (money_of_cents_string + "5122") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1315; start_column=5; + end_line=1319; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2001) (7) (1))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2001) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "163000") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "196700")) else + (o_add_mon_mon + (money_of_cents_string + "230400") + (o_mult_mon_rat + (money_of_cents_string + "33700") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "145300") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "175000")) else + (o_add_mon_mon + (money_of_cents_string + "204700") + (o_mult_mon_rat + (money_of_cents_string + "29700") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq + nombre_personnes_a_charge_ + (integer_of_string "0")) + then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "135700") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "162800")) else + (o_add_mon_mon + (money_of_cents_string + "189900") + (o_mult_mon_rat + (money_of_cents_string + "27100") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1348; start_column=5; + end_line=1352; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2002) (1) (1))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2002) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24849") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29987")) else + (o_add_mon_mon + (money_of_cents_string + "35125") + (o_mult_mon_rat + (money_of_cents_string + "5138") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "22151") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "26679")) else + (o_add_mon_mon + (money_of_cents_string + "31207") + (o_mult_mon_rat + (money_of_cents_string + "4528") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "20687") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "24818")) else + (o_add_mon_mon + (money_of_cents_string + "28949") + (o_mult_mon_rat + (money_of_cents_string + "4131") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1381; start_column=5; + end_line=1385; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2002) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2003) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31241") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "37689")) else + (o_add_mon_mon + (money_of_cents_string + "44137") + (o_mult_mon_rat + (money_of_cents_string + "6448") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "27879") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "33556")) else + (o_add_mon_mon + (money_of_cents_string + "39233") + (o_mult_mon_rat + (money_of_cents_string + "5677") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26027") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "31210")) else + (o_add_mon_mon + (money_of_cents_string + "36393") + (o_mult_mon_rat + (money_of_cents_string + "5183") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1414; start_column=5; + end_line=1418; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2002) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2003) (6) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25147") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30347")) else + (o_add_mon_mon + (money_of_cents_string + "35547") + (o_mult_mon_rat + (money_of_cents_string + "5200") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "22417") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "26999")) else + (o_add_mon_mon + (money_of_cents_string + "31581") + (o_mult_mon_rat + (money_of_cents_string + "4582") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "20935") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "25116")) else + (o_add_mon_mon + (money_of_cents_string + "29297") + (o_mult_mon_rat + (money_of_cents_string + "4181") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1447; start_column=5; + end_line=1451; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2003) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2005) (8) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31616") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "38141")) else + (o_add_mon_mon + (money_of_cents_string + "44666") + (o_mult_mon_rat + (money_of_cents_string + "6525") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28214") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "33959")) else + (o_add_mon_mon + (money_of_cents_string + "39704") + (o_mult_mon_rat + (money_of_cents_string + "5745") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26339") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "31584")) else + (o_add_mon_mon + (money_of_cents_string + "36829") + (o_mult_mon_rat + (money_of_cents_string + "5245") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1480; start_column=5; + end_line=1484; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2003) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2005) (8) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25449") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30711")) else + (o_add_mon_mon + (money_of_cents_string + "35973") + (o_mult_mon_rat + (money_of_cents_string + "5262") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "22686") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "27323")) else + (o_add_mon_mon + (money_of_cents_string + "31960") + (o_mult_mon_rat + (money_of_cents_string + "4637") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "21186") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "25417")) else + (o_add_mon_mon + (money_of_cents_string + "29648") + (o_mult_mon_rat + (money_of_cents_string + "4231") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1513; start_column=5; + end_line=1517; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2005) (8) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2006) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "32185") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "38827")) else + (o_add_mon_mon + (money_of_cents_string + "45469") + (o_mult_mon_rat + (money_of_cents_string + "6642") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28722") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "34570")) else + (o_add_mon_mon + (money_of_cents_string + "40418") + (o_mult_mon_rat + (money_of_cents_string + "5848") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26813") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "32152")) else + (o_add_mon_mon + (money_of_cents_string + "37491") + (o_mult_mon_rat + (money_of_cents_string + "5339") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1546; start_column=5; + end_line=1550; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2005) (8) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2006) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25907") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "31264")) else + (o_add_mon_mon + (money_of_cents_string + "36621") + (o_mult_mon_rat + (money_of_cents_string + "5357") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "23094") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "27814")) else + (o_add_mon_mon + (money_of_cents_string + "32534") + (o_mult_mon_rat + (money_of_cents_string + "4720") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "21567") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "25874")) else + (o_add_mon_mon + (money_of_cents_string + "30181") + (o_mult_mon_rat + (money_of_cents_string + "4307") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1579; start_column=5; + end_line=1583; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2006) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2007) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "33086") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "39914")) else + (o_add_mon_mon + (money_of_cents_string + "46742") + (o_mult_mon_rat + (money_of_cents_string + "6828") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29526") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35538")) else + (o_add_mon_mon + (money_of_cents_string + "41550") + (o_mult_mon_rat + (money_of_cents_string + "6012") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "27564") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "33052")) else + (o_add_mon_mon + (money_of_cents_string + "38541") + (o_mult_mon_rat + (money_of_cents_string + "5488") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1612; start_column=5; + end_line=1616; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2006) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2007) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26632") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "32139")) else + (o_add_mon_mon + (money_of_cents_string + "37646") + (o_mult_mon_rat + (money_of_cents_string + "5507") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "23741") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "28593")) else + (o_add_mon_mon + (money_of_cents_string + "33445") + (o_mult_mon_rat + (money_of_cents_string + "4852") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "22171") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36598")) else + (o_add_mon_mon + (money_of_cents_string + "31026") + (o_mult_mon_rat + (money_of_cents_string + "4428") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1645; start_column=5; + end_line=1649; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2007) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2008) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "33999") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "41016")) else + (o_add_mon_mon + (money_of_cents_string + "48032") + (o_mult_mon_rat + (money_of_cents_string + "7016") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "30341") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36519")) else + (o_add_mon_mon + (money_of_cents_string + "42697") + (o_mult_mon_rat + (money_of_cents_string + "6178") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28325") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "33964")) else + (o_add_mon_mon + (money_of_cents_string + "39605") + (o_mult_mon_rat + (money_of_cents_string + "5639") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1678; start_column=5; + end_line=1682; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2007) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2008) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "27367") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "33026")) else + (o_add_mon_mon + (money_of_cents_string + "38685") + (o_mult_mon_rat + (money_of_cents_string + "5659") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24396") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29382")) else + (o_add_mon_mon + (money_of_cents_string + "34368") + (o_mult_mon_rat + (money_of_cents_string + "4986") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "22783") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "27332")) else + (o_add_mon_mon + (money_of_cents_string + "31882") + (o_mult_mon_rat + (money_of_cents_string + "4550") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1711; start_column=5; + end_line=1715; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2008) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2009) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "35002") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "42226")) else + (o_add_mon_mon + (money_of_cents_string + "49449") + (o_mult_mon_rat + (money_of_cents_string + "7223") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31236") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "37596")) else + (o_add_mon_mon + (money_of_cents_string + "43957") + (o_mult_mon_rat + (money_of_cents_string + "6360") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29161") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "34966")) else + (o_add_mon_mon + (money_of_cents_string + "40773") + (o_mult_mon_rat + (money_of_cents_string + "5805") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1744; start_column=5; + end_line=1748; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2008) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2009) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28174") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "34000")) else + (o_add_mon_mon + (money_of_cents_string + "39826") + (o_mult_mon_rat + (money_of_cents_string + "5826") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25116") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30249")) else + (o_add_mon_mon + (money_of_cents_string + "35382") + (o_mult_mon_rat + (money_of_cents_string + "5133") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "23455") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "28138")) else + (o_add_mon_mon + (money_of_cents_string + "32823") + (o_mult_mon_rat + (money_of_cents_string + "4684") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1777; start_column=5; + end_line=1781; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2009) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2010) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "35114") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "42361")) else + (o_add_mon_mon + (money_of_cents_string + "49607") + (o_mult_mon_rat + (money_of_cents_string + "7246") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31336") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "37716")) else + (o_add_mon_mon + (money_of_cents_string + "44098") + (o_mult_mon_rat + (money_of_cents_string + "6380") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29254") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35078")) else + (o_add_mon_mon + (money_of_cents_string + "40903") + (o_mult_mon_rat + (money_of_cents_string + "5824") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1810; start_column=5; + end_line=1814; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2009) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2010) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28264") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "34109")) else + (o_add_mon_mon + (money_of_cents_string + "39953") + (o_mult_mon_rat + (money_of_cents_string + "5845") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25196") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30346")) else + (o_add_mon_mon + (money_of_cents_string + "35495") + (o_mult_mon_rat + (money_of_cents_string + "5149") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "23530") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "28228")) else + (o_add_mon_mon + (money_of_cents_string + "32928") + (o_mult_mon_rat + (money_of_cents_string + "4699") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1843; start_column=5; + end_line=1847; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2010) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2011) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "35500") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "42827")) else + (o_add_mon_mon + (money_of_cents_string + "50153") + (o_mult_mon_rat + (money_of_cents_string + "7326") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31681") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "38131")) else + (o_add_mon_mon + (money_of_cents_string + "44583") + (o_mult_mon_rat + (money_of_cents_string + "6450") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29576") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35464")) else + (o_add_mon_mon + (money_of_cents_string + "41353") + (o_mult_mon_rat + (money_of_cents_string + "5888") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1876; start_column=5; + end_line=1880; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2010) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2011) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28575") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "34484")) else + (o_add_mon_mon + (money_of_cents_string + "40392") + (o_mult_mon_rat + (money_of_cents_string + "5909") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25473") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30680")) else + (o_add_mon_mon + (money_of_cents_string + "35885") + (o_mult_mon_rat + (money_of_cents_string + "5206") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "23789") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "28539")) else + (o_add_mon_mon + (money_of_cents_string + "33290") + (o_mult_mon_rat + (money_of_cents_string + "4751") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1909; start_column=5; + end_line=1913; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2011) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2012) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "35855") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "43255")) else + (o_add_mon_mon + (money_of_cents_string + "50655") + (o_mult_mon_rat + (money_of_cents_string + "7399") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31998") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "38512")) else + (o_add_mon_mon + (money_of_cents_string + "45029") + (o_mult_mon_rat + (money_of_cents_string + "6515") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29872") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35819")) else + (o_add_mon_mon + (money_of_cents_string + "41767") + (o_mult_mon_rat + (money_of_cents_string + "5947") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1942; start_column=5; + end_line=1946; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2011) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2012) (12) (31))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "28861") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "34829")) else + (o_add_mon_mon + (money_of_cents_string + "40796") + (o_mult_mon_rat + (money_of_cents_string + "5968") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "25728") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "30987")) else + (o_add_mon_mon + (money_of_cents_string + "36244") + (o_mult_mon_rat + (money_of_cents_string + "5258") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24027") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "28824")) else + (o_add_mon_mon + (money_of_cents_string + "33623") + (o_mult_mon_rat + (money_of_cents_string + "4799") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=1975; start_column=5; + end_line=1979; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2012) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2014) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "36626") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "44185")) else + (o_add_mon_mon + (money_of_cents_string + "51744") + (o_mult_mon_rat + (money_of_cents_string + "7558") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "32686") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "39340")) else + (o_add_mon_mon + (money_of_cents_string + "45997") + (o_mult_mon_rat + (money_of_cents_string + "6655") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "30514") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36589")) else + (o_add_mon_mon + (money_of_cents_string + "42665") + (o_mult_mon_rat + (money_of_cents_string + "6075") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2008; start_column=5; + end_line=2012; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2012) (12) (31))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2014) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29482") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35578")) else + (o_add_mon_mon + (money_of_cents_string + "41673") + (o_mult_mon_rat + (money_of_cents_string + "6096") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26281") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "31653")) else + (o_add_mon_mon + (money_of_cents_string + "37023") + (o_mult_mon_rat + (money_of_cents_string + "5371") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24544") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29444")) else + (o_add_mon_mon + (money_of_cents_string + "34346") + (o_mult_mon_rat + (money_of_cents_string + "4902") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2041; start_column=5; + end_line=2045; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2014) (9) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2015) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "36835") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "44437")) else + (o_add_mon_mon + (money_of_cents_string + "52039") + (o_mult_mon_rat + (money_of_cents_string + "7601") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "32872") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "39564")) else + (o_add_mon_mon + (money_of_cents_string + "46259") + (o_mult_mon_rat + (money_of_cents_string + "6693") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "30688") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36798")) else + (o_add_mon_mon + (money_of_cents_string + "42908") + (o_mult_mon_rat + (money_of_cents_string + "6110") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2074; start_column=5; + end_line=2078; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2014) (9) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2015) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29650") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35781")) else + (o_add_mon_mon + (money_of_cents_string + "41911") + (o_mult_mon_rat + (money_of_cents_string + "6131") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26431") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "31833")) else + (o_add_mon_mon + (money_of_cents_string + "37234") + (o_mult_mon_rat + (money_of_cents_string + "5402") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24684") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29612")) else + (o_add_mon_mon + (money_of_cents_string + "34542") + (o_mult_mon_rat + (money_of_cents_string + "4930") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2107; start_column=5; + end_line=2111; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2015) (9) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2017) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "36864") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "44473")) else + (o_add_mon_mon + (money_of_cents_string + "52081") + (o_mult_mon_rat + (money_of_cents_string + "7607") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "32898") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "39596")) else + (o_add_mon_mon + (money_of_cents_string + "46296") + (o_mult_mon_rat + (money_of_cents_string + "6698") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "30713") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36827")) else + (o_add_mon_mon + (money_of_cents_string + "42942") + (o_mult_mon_rat + (money_of_cents_string + "6115") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2140; start_column=5; + end_line=2144; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2015) (9) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2017) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29674") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "35810")) else + (o_add_mon_mon + (money_of_cents_string + "41945") + (o_mult_mon_rat + (money_of_cents_string + "6136") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26452") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "31858")) else + (o_add_mon_mon + (money_of_cents_string + "37264") + (o_mult_mon_rat + (money_of_cents_string + "5406") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24704") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29636")) else + (o_add_mon_mon + (money_of_cents_string + "34570") + (o_mult_mon_rat + (money_of_cents_string + "4934") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2173; start_column=5; + end_line=2177; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2017) (9) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2019) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "37140") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "44807")) else + (o_add_mon_mon + (money_of_cents_string + "52472") + (o_mult_mon_rat + (money_of_cents_string + "7664") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "33145") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "39893")) else + (o_add_mon_mon + (money_of_cents_string + "46643") + (o_mult_mon_rat + (money_of_cents_string + "6748") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "30943") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "37103")) else + (o_add_mon_mon + (money_of_cents_string + "43264") + (o_mult_mon_rat + (money_of_cents_string + "6161") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2206; start_column=5; + end_line=2210; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2017) (9) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (2019) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> + false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> + false))))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29897") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36079")) else + (o_add_mon_mon + (money_of_cents_string + "42260") + (o_mult_mon_rat + (money_of_cents_string + "6182") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26650") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "32097")) else + (o_add_mon_mon + (money_of_cents_string + "37543") + (o_mult_mon_rat + (money_of_cents_string + "5447") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24889") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29858")) else + (o_add_mon_mon + (money_of_cents_string + "34829") + (o_mult_mon_rat + (money_of_cents_string + "4971") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2239; start_column=5; + end_line=2242; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2019) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> true + | NeufOuAncien.Ancien _ -> + false) + (match type_pret_ + with + | TypePret.D331_32 _ -> false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> false)))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "37252") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "44941")) else + (o_add_mon_mon + (money_of_cents_string + "52629") + (o_mult_mon_rat + (money_of_cents_string + "7687") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "33244") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "40013")) else + (o_add_mon_mon + (money_of_cents_string + "46783") + (o_mult_mon_rat + (money_of_cents_string + "6768") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "31036") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "37215")) else + (o_add_mon_mon + (money_of_cents_string + "43394") + (o_mult_mon_rat + (money_of_cents_string + "6179") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))))); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=2271; start_column=5; + end_line=2274; end_column=36; + law_headings=["Article 18"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat date_courante_ + (date_of_numbers (2020) (10) (1))) + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (2019) (9) (30))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> + false + | NeufOuAncien.Ancien _ -> + true) + (match type_pret_ + with + | TypePret.D331_32 _ -> false + | TypePret.D331_63_64 _ -> + true + | TypePret.D331_59_8 _ -> + false + | TypePret.D331_76_1 _ -> + false + | TypePret.Autre _ -> false)))))) + (fun (_: unit) -> + match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "29986") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "36187")) else + (o_add_mon_mon + (money_of_cents_string + "42386") + (o_mult_mon_rat + (money_of_cents_string + "6201") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "26730") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "32193")) else + (o_add_mon_mon + (money_of_cents_string + "37656") + (o_mult_mon_rat + (money_of_cents_string + "5463") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "24964") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "29948")) else + (o_add_mon_mon + (money_of_cents_string + "34934") + (o_mult_mon_rat + (money_of_cents_string + "4986") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))))|]) + (fun (_: unit) -> false) + (fun (_: unit) -> raise EmptyError))); (fun (_: unit) -> handle_default {filename = "examples/aides_logement/prologue.catala_fr"; @@ -9702,9 +14028,121 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=843; start_column=5; - end_line=849; end_column=36; - law_headings=["Article 18"; + start_line=618; start_column=5; + end_line=621; end_column=33; + law_headings=["Article 17"; + "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1992) (6) (30))) + (o_and + (o_lt_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> true + | NeufOuAncien.Ancien _ -> false) + (match type_pret_ + with + | TypePret.D331_32 _ -> true + | TypePret.D331_63_64 _ -> false + | TypePret.D331_59_8 _ -> false + | TypePret.D331_76_1 _ -> false + | TypePret.Autre _ -> false)))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ + with + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "208500") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "251500")) else + (o_add_mon_mon + (money_of_cents_string + "294500") + (o_mult_mon_rat + (money_of_cents_string + "43000") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "186000") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "223900")) else + (o_add_mon_mon + (money_of_cents_string + "261800") + (o_mult_mon_rat + (money_of_cents_string + "37900") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "173600") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "208200")) else + (o_add_mon_mon + (money_of_cents_string + "242800") + (o_mult_mon_rat + (money_of_cents_string + "35600") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=662; start_column=5; + end_line=665; end_column=33; + law_headings=["Article 17"; "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and @@ -9717,17 +14155,11 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna (match anciennete_logement_ with | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien ameliore_par_occupant_ -> - (match ameliore_par_occupant_ - with - | AmelioreParOccupant.Oui _ -> - false - | AmelioreParOccupant.Non _ -> - true)) + | NeufOuAncien.Ancien _ -> true) (match type_pret_ with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true + | TypePret.D331_32 _ -> true + | TypePret.D331_63_64 _ -> false | TypePret.D331_59_8 _ -> false | TypePret.D331_76_1 _ -> false | TypePret.Autre _ -> false)))))) @@ -9807,3489 +14239,236 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna nombre_personnes_a_charge_ (integer_of_string "1"))))))) - taux_francs_vers_euros_))|]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=660; start_column=5; - end_line=663; end_column=33; - law_headings=["Article 17"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1992) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> true - | TypePret.D331_63_64 _ -> false - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "167800") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "202500")) - else - (o_add_mon_mon (money_of_cents_string - "237200") - (o_mult_mon_rat (money_of_cents_string - "34700") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "149600") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "180100")) - else - (o_add_mon_mon (money_of_cents_string - "210600") - (o_mult_mon_rat (money_of_cents_string - "30500") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "139700") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "167600")) - else - (o_add_mon_mon (money_of_cents_string - "195500") - (o_mult_mon_rat (money_of_cents_string - "27900") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=890; start_column=5; - end_line=896; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1992) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien ameliore_par_occupant_ -> - (match ameliore_par_occupant_ + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=707; start_column=5; + end_line=709; end_column=33; + law_headings=["Article 17"; + "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (match anciennete_logement_ with - | AmelioreParOccupant.Oui _ -> true - | AmelioreParOccupant.Non _ -> false)) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "86900") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "97100")) else - (o_add_mon_mon (money_of_cents_string "107300") - (o_mult_mon_rat (money_of_cents_string - "10200") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=922; start_column=5; - end_line=925; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2000) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ + | NeufOuAncien.Neuf _ -> true + | NeufOuAncien.Ancien _ -> false) + (match type_pret_ + with + | TypePret.D331_32 _ -> true + | TypePret.D331_63_64 _ -> false + | TypePret.D331_59_8 _ -> false + | TypePret.D331_76_1 _ -> false + | TypePret.Autre _ -> false))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "198100") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "239000")) - else - (o_add_mon_mon (money_of_cents_string - "279900") - (o_mult_mon_rat (money_of_cents_string - "40900") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "184000") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "220000")) else + (o_add_mon_mon + (money_of_cents_string + "260000") + (o_mult_mon_rat + (money_of_cents_string + "38000") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "164200") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "197700")) else + (o_add_mon_mon + (money_of_cents_string + "231200") + (o_mult_mon_rat + (money_of_cents_string + "33500") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "153200") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "183700")) else + (o_add_mon_mon + (money_of_cents_string + "214200") + (o_mult_mon_rat + (money_of_cents_string + "30500") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_)); + (fun (_: unit) -> + handle_default + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=11; + end_line=685; end_column=46; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} + ([||]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; + start_line=750; start_column=5; + end_line=752; end_column=33; + law_headings=["Article 17"; + "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} + (o_and + (o_gte_dat_dat param_ + (date_of_numbers (1994) (11) (27))) + (o_and + (match anciennete_logement_ + with + | NeufOuAncien.Neuf _ -> false + | NeufOuAncien.Ancien _ -> true) + (match type_pret_ + with + | TypePret.D331_32 _ -> true + | TypePret.D331_63_64 _ -> false + | TypePret.D331_59_8 _ -> false + | TypePret.D331_76_1 _ -> false + | TypePret.Autre _ -> false))))) + (fun (_: unit) -> + o_mult_mon_rat + (match zone_ with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "176800") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "212800")) - else - (o_add_mon_mon (money_of_cents_string - "248800") - (o_mult_mon_rat (money_of_cents_string - "36000") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "165000") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "197900")) - else - (o_add_mon_mon (money_of_cents_string - "230800") - (o_mult_mon_rat (money_of_cents_string - "32900") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=966; start_column=5; - end_line=969; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (1994) (11) (27))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2000) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "159500") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "192500")) - else - (o_add_mon_mon (money_of_cents_string - "225500") - (o_mult_mon_rat (money_of_cents_string - "33000") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "142200") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "171200")) - else - (o_add_mon_mon (money_of_cents_string - "200200") - (o_mult_mon_rat (money_of_cents_string - "29000") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "132800") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "159300")) - else - (o_add_mon_mon (money_of_cents_string - "185800") - (o_mult_mon_rat (money_of_cents_string - "26500") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1011; start_column=5; - end_line=1014; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2000) (6) (30))) - (o_and - (o_lte_dat_dat param_ - (date_of_numbers (2001) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "200100") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "141400")) - else - (o_add_mon_mon (money_of_cents_string - "182700") - (o_mult_mon_rat (money_of_cents_string - "41300") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "178600") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "215000")) - else - (o_add_mon_mon (money_of_cents_string - "251400") - (o_mult_mon_rat (money_of_cents_string - "36400") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "166700") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "199900")) - else - (o_add_mon_mon (money_of_cents_string - "233100") - (o_mult_mon_rat (money_of_cents_string - "33200") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1055; start_column=5; - end_line=1058; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2000) (6) (30))) - (o_and - (o_lte_dat_dat param_ - (date_of_numbers (2001) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "161100") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "194400")) - else - (o_add_mon_mon (money_of_cents_string - "227700") - (o_mult_mon_rat (money_of_cents_string - "33300") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "143600") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "172900")) - else - (o_add_mon_mon (money_of_cents_string - "202200") - (o_mult_mon_rat (money_of_cents_string - "29300") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "134100") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "160900")) - else - (o_add_mon_mon (money_of_cents_string - "187700") - (o_mult_mon_rat (money_of_cents_string - "26800") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1102; start_column=5; - end_line=1105; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2001) (7) (1))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2001) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "202500") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "244300")) - else - (o_add_mon_mon (money_of_cents_string - "286100") - (o_mult_mon_rat (money_of_cents_string - "41800") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "180700") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "217500")) - else - (o_add_mon_mon (money_of_cents_string - "254300") - (o_mult_mon_rat (money_of_cents_string - "36800") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "168700") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "202300")) - else - (o_add_mon_mon (money_of_cents_string - "235900") - (o_mult_mon_rat (money_of_cents_string - "33600") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1145; start_column=5; - end_line=1148; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2002) (1) (1))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2002) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "30871") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "37243")) else - (o_add_mon_mon (money_of_cents_string - "43615") - (o_mult_mon_rat (money_of_cents_string - "6372") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "27548") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "33148")) else - (o_add_mon_mon (money_of_cents_string - "38768") - (o_mult_mon_rat (money_of_cents_string - "5610") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25718") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30840")) else - (o_add_mon_mon (money_of_cents_string - "35962") - (o_mult_mon_rat (money_of_cents_string - "5122") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1191; start_column=5; - end_line=1194; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2001) (7) (1))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2001) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - o_mult_mon_rat - (match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "163000") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "196700")) - else - (o_add_mon_mon (money_of_cents_string - "230400") - (o_mult_mon_rat (money_of_cents_string - "33700") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "145300") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "175000")) - else - (o_add_mon_mon (money_of_cents_string - "204700") - (o_mult_mon_rat (money_of_cents_string - "29700") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "135700") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "162800")) - else - (o_add_mon_mon (money_of_cents_string - "189900") - (o_mult_mon_rat (money_of_cents_string - "27100") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))) - taux_francs_vers_euros_)); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1234; start_column=5; - end_line=1237; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2002) (1) (1))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2002) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24849") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29987")) else - (o_add_mon_mon (money_of_cents_string - "35125") - (o_mult_mon_rat (money_of_cents_string - "5138") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "22151") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "26679")) else - (o_add_mon_mon (money_of_cents_string - "31207") - (o_mult_mon_rat (money_of_cents_string - "4528") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "20687") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "24818")) else - (o_add_mon_mon (money_of_cents_string - "28949") - (o_mult_mon_rat (money_of_cents_string - "4131") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1279; start_column=5; - end_line=1282; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2002) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2003) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31241") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "37689")) else - (o_add_mon_mon (money_of_cents_string - "44137") - (o_mult_mon_rat (money_of_cents_string - "6448") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "27879") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "33556")) else - (o_add_mon_mon (money_of_cents_string - "39233") - (o_mult_mon_rat (money_of_cents_string - "5677") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26027") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "31210")) else - (o_add_mon_mon (money_of_cents_string - "36393") - (o_mult_mon_rat (money_of_cents_string - "5183") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1323; start_column=5; - end_line=1326; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2002) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2003) (6) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25147") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30347")) else - (o_add_mon_mon (money_of_cents_string - "35547") - (o_mult_mon_rat (money_of_cents_string - "5200") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "22417") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "26999")) else - (o_add_mon_mon (money_of_cents_string - "31581") - (o_mult_mon_rat (money_of_cents_string - "4582") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "20935") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "25116")) else - (o_add_mon_mon (money_of_cents_string - "29297") - (o_mult_mon_rat (money_of_cents_string - "4181") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1368; start_column=5; - end_line=1371; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2003) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2005) (8) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31616") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "38141")) else - (o_add_mon_mon (money_of_cents_string - "44666") - (o_mult_mon_rat (money_of_cents_string - "6525") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28214") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "33959")) else - (o_add_mon_mon (money_of_cents_string - "39704") - (o_mult_mon_rat (money_of_cents_string - "5745") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26339") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "31584")) else - (o_add_mon_mon (money_of_cents_string - "36829") - (o_mult_mon_rat (money_of_cents_string - "5245") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1412; start_column=5; - end_line=1415; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2003) (6) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2005) (8) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25449") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30711")) else - (o_add_mon_mon (money_of_cents_string - "35973") - (o_mult_mon_rat (money_of_cents_string - "5262") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "22686") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "27323")) else - (o_add_mon_mon (money_of_cents_string - "31960") - (o_mult_mon_rat (money_of_cents_string - "4637") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "21186") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "25417")) else - (o_add_mon_mon (money_of_cents_string - "29648") - (o_mult_mon_rat (money_of_cents_string - "4231") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1457; start_column=5; - end_line=1460; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2005) (8) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2006) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "32185") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "38827")) else - (o_add_mon_mon (money_of_cents_string - "45469") - (o_mult_mon_rat (money_of_cents_string - "6642") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28722") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "34570")) else - (o_add_mon_mon (money_of_cents_string - "40418") - (o_mult_mon_rat (money_of_cents_string - "5848") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26813") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "32152")) else - (o_add_mon_mon (money_of_cents_string - "37491") - (o_mult_mon_rat (money_of_cents_string - "5339") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1501; start_column=5; - end_line=1504; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2005) (8) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2006) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25907") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "31264")) else - (o_add_mon_mon (money_of_cents_string - "36621") - (o_mult_mon_rat (money_of_cents_string - "5357") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "23094") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "27814")) else - (o_add_mon_mon (money_of_cents_string - "32534") - (o_mult_mon_rat (money_of_cents_string - "4720") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "21567") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "25874")) else - (o_add_mon_mon (money_of_cents_string - "30181") - (o_mult_mon_rat (money_of_cents_string - "4307") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1546; start_column=5; - end_line=1549; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2006) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2007) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "33086") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "39914")) else - (o_add_mon_mon (money_of_cents_string - "46742") - (o_mult_mon_rat (money_of_cents_string - "6828") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29526") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35538")) else - (o_add_mon_mon (money_of_cents_string - "41550") - (o_mult_mon_rat (money_of_cents_string - "6012") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "27564") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "33052")) else - (o_add_mon_mon (money_of_cents_string - "38541") - (o_mult_mon_rat (money_of_cents_string - "5488") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1590; start_column=5; - end_line=1593; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2006) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2007) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26632") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "32139")) else - (o_add_mon_mon (money_of_cents_string - "37646") - (o_mult_mon_rat (money_of_cents_string - "5507") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "23741") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "28593")) else - (o_add_mon_mon (money_of_cents_string - "33445") - (o_mult_mon_rat (money_of_cents_string - "4852") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "22171") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36598")) else - (o_add_mon_mon (money_of_cents_string - "31026") - (o_mult_mon_rat (money_of_cents_string - "4428") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1635; start_column=5; - end_line=1638; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2007) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2008) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "33999") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "41016")) else - (o_add_mon_mon (money_of_cents_string - "48032") - (o_mult_mon_rat (money_of_cents_string - "7016") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "30341") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36519")) else - (o_add_mon_mon (money_of_cents_string - "42697") - (o_mult_mon_rat (money_of_cents_string - "6178") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28325") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "33964")) else - (o_add_mon_mon (money_of_cents_string - "39605") - (o_mult_mon_rat (money_of_cents_string - "5639") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1679; start_column=5; - end_line=1682; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2007) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2008) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "27367") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "33026")) else - (o_add_mon_mon (money_of_cents_string - "38685") - (o_mult_mon_rat (money_of_cents_string - "5659") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24396") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29382")) else - (o_add_mon_mon (money_of_cents_string - "34368") - (o_mult_mon_rat (money_of_cents_string - "4986") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "22783") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "27332")) else - (o_add_mon_mon (money_of_cents_string - "31882") - (o_mult_mon_rat (money_of_cents_string - "4550") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1724; start_column=5; - end_line=1727; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2008) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2009) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "35002") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "42226")) else - (o_add_mon_mon (money_of_cents_string - "49449") - (o_mult_mon_rat (money_of_cents_string - "7223") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31236") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "37596")) else - (o_add_mon_mon (money_of_cents_string - "43957") - (o_mult_mon_rat (money_of_cents_string - "6360") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29161") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "34966")) else - (o_add_mon_mon (money_of_cents_string - "40773") - (o_mult_mon_rat (money_of_cents_string - "5805") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1768; start_column=5; - end_line=1771; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2008) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2009) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28174") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "34000")) else - (o_add_mon_mon (money_of_cents_string - "39826") - (o_mult_mon_rat (money_of_cents_string - "5826") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25116") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30249")) else - (o_add_mon_mon (money_of_cents_string - "35382") - (o_mult_mon_rat (money_of_cents_string - "5133") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "23455") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "28138")) else - (o_add_mon_mon (money_of_cents_string - "32823") - (o_mult_mon_rat (money_of_cents_string - "4684") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1813; start_column=5; - end_line=1816; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2009) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2010) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "35114") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "42361")) else - (o_add_mon_mon (money_of_cents_string - "49607") - (o_mult_mon_rat (money_of_cents_string - "7246") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31336") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "37716")) else - (o_add_mon_mon (money_of_cents_string - "44098") - (o_mult_mon_rat (money_of_cents_string - "6380") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29254") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35078")) else - (o_add_mon_mon (money_of_cents_string - "40903") - (o_mult_mon_rat (money_of_cents_string - "5824") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1857; start_column=5; - end_line=1860; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2009) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2010) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28264") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "34109")) else - (o_add_mon_mon (money_of_cents_string - "39953") - (o_mult_mon_rat (money_of_cents_string - "5845") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25196") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30346")) else - (o_add_mon_mon (money_of_cents_string - "35495") - (o_mult_mon_rat (money_of_cents_string - "5149") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "23530") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "28228")) else - (o_add_mon_mon (money_of_cents_string - "32928") - (o_mult_mon_rat (money_of_cents_string - "4699") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1902; start_column=5; - end_line=1905; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2010) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2011) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "35500") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "42827")) else - (o_add_mon_mon (money_of_cents_string - "50153") - (o_mult_mon_rat (money_of_cents_string - "7326") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31681") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "38131")) else - (o_add_mon_mon (money_of_cents_string - "44583") - (o_mult_mon_rat (money_of_cents_string - "6450") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29576") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35464")) else - (o_add_mon_mon (money_of_cents_string - "41353") - (o_mult_mon_rat (money_of_cents_string - "5888") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1946; start_column=5; - end_line=1949; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2010) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2011) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28575") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "34484")) else - (o_add_mon_mon (money_of_cents_string - "40392") - (o_mult_mon_rat (money_of_cents_string - "5909") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25473") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30680")) else - (o_add_mon_mon (money_of_cents_string - "35885") - (o_mult_mon_rat (money_of_cents_string - "5206") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "23789") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "28539")) else - (o_add_mon_mon (money_of_cents_string - "33290") - (o_mult_mon_rat (money_of_cents_string - "4751") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=1991; start_column=5; - end_line=1994; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2011) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2012) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "35855") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "43255")) else - (o_add_mon_mon (money_of_cents_string - "50655") - (o_mult_mon_rat (money_of_cents_string - "7399") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31998") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "38512")) else - (o_add_mon_mon (money_of_cents_string - "45029") - (o_mult_mon_rat (money_of_cents_string - "6515") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29872") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35819")) else - (o_add_mon_mon (money_of_cents_string - "41767") - (o_mult_mon_rat (money_of_cents_string - "5947") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2036; start_column=5; - end_line=2039; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2011) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2012) (12) (31))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "28861") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "34829")) else - (o_add_mon_mon (money_of_cents_string - "40796") - (o_mult_mon_rat (money_of_cents_string - "5968") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "25728") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "30987")) else - (o_add_mon_mon (money_of_cents_string - "36244") - (o_mult_mon_rat (money_of_cents_string - "5258") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24027") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "28824")) else - (o_add_mon_mon (money_of_cents_string - "33623") - (o_mult_mon_rat (money_of_cents_string - "4799") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2081; start_column=5; - end_line=2084; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2012) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2014) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "36626") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "44185")) else - (o_add_mon_mon (money_of_cents_string - "51744") - (o_mult_mon_rat (money_of_cents_string - "7558") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "32686") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "39340")) else - (o_add_mon_mon (money_of_cents_string - "45997") - (o_mult_mon_rat (money_of_cents_string - "6655") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "30514") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36589")) else - (o_add_mon_mon (money_of_cents_string - "42665") - (o_mult_mon_rat (money_of_cents_string - "6075") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2125; start_column=5; - end_line=2128; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2012) (12) (31))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2014) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29482") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35578")) else - (o_add_mon_mon (money_of_cents_string - "41673") - (o_mult_mon_rat (money_of_cents_string - "6096") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26281") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "31653")) else - (o_add_mon_mon (money_of_cents_string - "37023") - (o_mult_mon_rat (money_of_cents_string - "5371") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24544") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29444")) else - (o_add_mon_mon (money_of_cents_string - "34346") - (o_mult_mon_rat (money_of_cents_string - "4902") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2170; start_column=5; - end_line=2173; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2014) (9) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2015) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "36835") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "44437")) else - (o_add_mon_mon (money_of_cents_string - "52039") - (o_mult_mon_rat (money_of_cents_string - "7601") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "32872") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "39564")) else - (o_add_mon_mon (money_of_cents_string - "46259") - (o_mult_mon_rat (money_of_cents_string - "6693") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "30688") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36798")) else - (o_add_mon_mon (money_of_cents_string - "42908") - (o_mult_mon_rat (money_of_cents_string - "6110") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2214; start_column=5; - end_line=2217; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2014) (9) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2015) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29650") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35781")) else - (o_add_mon_mon (money_of_cents_string - "41911") - (o_mult_mon_rat (money_of_cents_string - "6131") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26431") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "31833")) else - (o_add_mon_mon (money_of_cents_string - "37234") - (o_mult_mon_rat (money_of_cents_string - "5402") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24684") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29612")) else - (o_add_mon_mon (money_of_cents_string - "34542") - (o_mult_mon_rat (money_of_cents_string - "4930") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2259; start_column=5; - end_line=2262; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2015) (9) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2017) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "36864") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "44473")) else - (o_add_mon_mon (money_of_cents_string - "52081") - (o_mult_mon_rat (money_of_cents_string - "7607") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "32898") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "39596")) else - (o_add_mon_mon (money_of_cents_string - "46296") - (o_mult_mon_rat (money_of_cents_string - "6698") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "30713") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36827")) else - (o_add_mon_mon (money_of_cents_string - "42942") - (o_mult_mon_rat (money_of_cents_string - "6115") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2303; start_column=5; - end_line=2306; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2015) (9) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2017) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29674") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "35810")) else - (o_add_mon_mon (money_of_cents_string - "41945") - (o_mult_mon_rat (money_of_cents_string - "6136") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26452") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "31858")) else - (o_add_mon_mon (money_of_cents_string - "37264") - (o_mult_mon_rat (money_of_cents_string - "5406") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24704") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29636")) else - (o_add_mon_mon (money_of_cents_string - "34570") - (o_mult_mon_rat (money_of_cents_string - "4934") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2348; start_column=5; - end_line=2351; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2017) (9) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2019) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "37140") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "44807")) else - (o_add_mon_mon (money_of_cents_string - "52472") - (o_mult_mon_rat (money_of_cents_string - "7664") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "33145") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "39893")) else - (o_add_mon_mon (money_of_cents_string - "46643") - (o_mult_mon_rat (money_of_cents_string - "6748") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "30943") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "37103")) else - (o_add_mon_mon (money_of_cents_string - "43264") - (o_mult_mon_rat (money_of_cents_string - "6161") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2392; start_column=5; - end_line=2395; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2017) (9) (30))) - (o_and - (o_lt_dat_dat param_ - (date_of_numbers (2019) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false)))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29897") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36079")) else - (o_add_mon_mon (money_of_cents_string - "42260") - (o_mult_mon_rat (money_of_cents_string - "6182") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26650") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "32097")) else - (o_add_mon_mon (money_of_cents_string - "37543") - (o_mult_mon_rat (money_of_cents_string - "5447") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24889") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29858")) else - (o_add_mon_mon (money_of_cents_string - "34829") - (o_mult_mon_rat (money_of_cents_string - "4971") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2437; start_column=5; - end_line=2439; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2019) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> true - | NeufOuAncien.Ancien _ -> false) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "37252") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "44941")) else - (o_add_mon_mon (money_of_cents_string - "52629") - (o_mult_mon_rat (money_of_cents_string - "7687") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "33244") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "40013")) else - (o_add_mon_mon (money_of_cents_string - "46783") - (o_mult_mon_rat (money_of_cents_string - "6768") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "31036") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "37215")) else - (o_add_mon_mon (money_of_cents_string - "43394") - (o_mult_mon_rat (money_of_cents_string - "6179") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))))); - (fun (_: unit) -> - handle_default - {filename = "examples/aides_logement/prologue.catala_fr"; - start_line=685; start_column=11; - end_line=685; end_column=46; - law_headings=["Secteur accession à la propriété"; - "Calcul du montant de l'aide personnalisée au logement"; - "Déclarations des champs d'application"; - "Prologue : aides au logement"]} - ([||]) - (fun (_: unit) -> (log_decision_taken - {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2480; start_column=5; - end_line=2482; end_column=36; - law_headings=["Article 18"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; - "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} - (o_and - (o_gte_dat_dat param_ - (date_of_numbers (2019) (9) (30))) - (o_and - (match anciennete_logement_ - with - | NeufOuAncien.Neuf _ -> false - | NeufOuAncien.Ancien _ -> true) - (match type_pret_ - with - | TypePret.D331_32 _ -> false - | TypePret.D331_63_64 _ -> true - | TypePret.D331_59_8 _ -> false - | TypePret.D331_76_1 _ -> false - | TypePret.Autre _ -> false))))) - (fun (_: unit) -> - match zone_ - with - | ZoneDHabitation.Zone1 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "29986") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "36187")) else - (o_add_mon_mon (money_of_cents_string - "42386") - (o_mult_mon_rat (money_of_cents_string - "6201") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone2 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "26730") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "32193")) else - (o_add_mon_mon (money_of_cents_string - "37656") - (o_mult_mon_rat (money_of_cents_string - "5463") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1")))))) - | ZoneDHabitation.Zone3 _ -> - ( if - (o_eq nombre_personnes_a_charge_ - (integer_of_string "0")) then - (match situation_familiale_calcul_apl_ - with - | SituationFamilialeCalculAPL.PersonneSeule _ -> - (money_of_cents_string "24964") - | SituationFamilialeCalculAPL.Couple _ -> - (money_of_cents_string "29948")) else - (o_add_mon_mon (money_of_cents_string - "34934") - (o_mult_mon_rat (money_of_cents_string - "4986") - (o_torat_int - (o_sub_int_int - nombre_personnes_a_charge_ - (integer_of_string "1"))))))))|]) - (fun (_: unit) -> false) (fun (_: unit) -> raise EmptyError)) + | ZoneDHabitation.Zone1 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "148100") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "178700")) else + (o_add_mon_mon + (money_of_cents_string + "209300") + (o_mult_mon_rat + (money_of_cents_string + "30600") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone2 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "132000") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "158900")) else + (o_add_mon_mon + (money_of_cents_string + "185800") + (o_mult_mon_rat + (money_of_cents_string + "26900") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1")))))) + | ZoneDHabitation.Zone3 _ -> + ( if + (o_eq nombre_personnes_a_charge_ + (integer_of_string "0")) then + (match + situation_familiale_calcul_apl_ + with + | SituationFamilialeCalculAPL.PersonneSeule _ -> + (money_of_cents_string + "123300") + | SituationFamilialeCalculAPL.Couple _ -> + (money_of_cents_string + "147900")) else + (o_add_mon_mon + (money_of_cents_string + "172500") + (o_mult_mon_rat + (money_of_cents_string + "24600") + (o_torat_int + (o_sub_int_int + nombre_personnes_a_charge_ + (integer_of_string + "1"))))))) + taux_francs_vers_euros_))|]) + (fun (_: unit) -> false) + (fun (_: unit) -> raise EmptyError))|]) + (fun (_: unit) -> (log_decision_taken + {filename = "examples/aides_logement/prologue.catala_fr"; + start_line=685; start_column=3; + end_line=685; end_column=76; + law_headings=["Secteur accession à la propriété"; + "Calcul du montant de l'aide personnalisée au logement"; + "Déclarations des champs d'application"; + "Prologue : aides au logement"]} false)) + (fun (_: unit) -> raise EmptyError)) with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/prologue.catala_fr"; @@ -13319,7 +14498,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3267; start_column=14; end_line=3267; end_column=36; + start_line=3278; start_column=14; end_line=3278; end_column=36; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13362,8 +14541,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3519; start_column=5; - end_line=3519; end_column=40; + start_line=3530; start_column=5; + end_line=3530; end_column=40; law_headings=["Article D832-17"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13379,8 +14558,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna montant_forfaitaire_charges_d832_10_) param_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3530; start_column=14; - end_line=3530; end_column=44; + start_line=3541; start_column=14; + end_line=3541; end_column=44; law_headings=["Article D832-17"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13428,8 +14607,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3354; start_column=5; - end_line=3354; end_column=44; + start_line=3365; start_column=5; + end_line=3365; end_column=44; law_headings=["Article D832-14"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13473,7 +14652,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna then plafond_entree_ else plafond_signature_)))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3334; start_column=14; end_line=3334; end_column=42; + start_line=3345; start_column=14; end_line=3345; end_column=42; law_headings=["Article D832-14"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13510,7 +14689,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna (embed_money) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3475; start_column=14; end_line=3475; end_column=75; + start_line=3486; start_column=14; end_line=3486; end_column=75; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13521,7 +14700,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3475; start_column=14; end_line=3475; end_column=75; + start_line=3486; start_column=14; end_line=3486; end_column=75; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13533,7 +14712,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3475; start_column=14; end_line=3475; end_column=75; + start_line=3486; start_column=14; end_line=3486; end_column=75; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13548,7 +14727,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3474; start_column=14; end_line=3474; end_column=69; + start_line=3485; start_column=14; end_line=3485; end_column=69; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13559,7 +14738,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3474; start_column=14; end_line=3474; end_column=69; + start_line=3485; start_column=14; end_line=3485; end_column=69; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13571,7 +14750,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3474; start_column=14; end_line=3474; end_column=69; + start_line=3485; start_column=14; end_line=3485; end_column=69; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13586,7 +14765,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna (embed_decimal) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3477; start_column=14; end_line=3477; end_column=70; + start_line=3488; start_column=14; end_line=3488; end_column=70; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13597,7 +14776,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3477; start_column=14; end_line=3477; end_column=70; + start_line=3488; start_column=14; end_line=3488; end_column=70; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13609,7 +14788,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3477; start_column=14; end_line=3477; end_column=70; + start_line=3488; start_column=14; end_line=3488; end_column=70; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13644,7 +14823,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3182; start_column=14; end_line=3182; end_column=49; + start_line=3193; start_column=14; end_line=3193; end_column=49; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13681,8 +14860,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3541; start_column=14; - end_line=3541; end_column=55; + start_line=3552; start_column=14; + end_line=3552; end_column=55; law_headings=["Article D832-17"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13773,12 +14952,12 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=1165; start_column=14; - end_line=1165; end_column=42; + start_line=1290; start_column=14; + end_line=1290; end_column=42; law_headings=["Article 24"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"; - "Articles valables du 1er octobre 2020 au 1er octobre 2021"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2020 au 31 septembre 2021"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_lt_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -13792,11 +14971,11 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna plafond_mensualite_d832_10_3_base_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=444; start_column=14; - end_line=444; end_column=42; + start_line=497; start_column=14; + end_line=497; end_column=42; law_headings=["Article 24"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -13810,10 +14989,9 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna plafond_mensualite_d832_10_3_base_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=2609; start_column=14; - end_line=2609; end_column=42; - law_headings=["Article 24"; - "Chapitre IV : Calcul de l'aide personnalisée au logement en secteur accession"; + start_line=2383; start_column=14; + end_line=2383; end_column=42; + law_headings=["Article 24"; "Article 18"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_gte_dat_dat date_courante_ (date_of_numbers (2022) (7) (1))))) @@ -13853,8 +15031,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3414; start_column=5; - end_line=3426; end_column=77; + start_line=3425; start_column=5; + end_line=3437; end_column=77; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13924,8 +15102,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3469; start_column=5; - end_line=3469; end_column=75; + start_line=3480; start_column=5; + end_line=3480; end_column=75; law_headings=["Article D832-15"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -13964,7 +15142,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3198; start_column=14; end_line=3198; end_column=49; + start_line=3209; start_column=14; end_line=3209; end_column=49; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -14004,8 +15182,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3132; start_column=14; - end_line=3132; end_column=36; + start_line=3143; start_column=14; + end_line=3143; end_column=36; law_headings=["Article D832-10"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -14078,7 +15256,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3093; start_column=14; end_line=3093; end_column=33; + start_line=3104; start_column=14; end_line=3104; end_column=33; law_headings=["Article D832-10"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -14114,7 +15292,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3201; start_column=14; end_line=3201; end_column=49; + start_line=3212; start_column=14; end_line=3212; end_column=49; law_headings=["Article D832-11"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -14153,8 +15331,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3146; start_column=14; - end_line=3146; end_column=36; + start_line=3157; start_column=14; + end_line=3157; end_column=36; law_headings=["Article D832-10"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -14230,7 +15408,7 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3073; start_column=14; end_line=3073; end_column=33; + start_line=3084; start_column=14; end_line=3084; end_column=33; law_headings=["Article D832-10"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -14273,8 +15451,8 @@ let calcul_aide_personnalisee_logement_accession_propriete (calcul_aide_personna "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3166; start_column=14; - end_line=3166; end_column=36; + start_line=3177; start_column=14; + end_line=3177; end_column=36; law_headings=["Article D832-10"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -15582,8 +16760,8 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1161; start_column=5; - end_line=1177; end_column=10; + start_line=1172; start_column=5; + end_line=1188; end_column=10; law_headings=["Article R823-4"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -15679,8 +16857,8 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1201; start_column=4; - end_line=1207; end_column=48; + start_line=1212; start_column=4; + end_line=1218; end_column=48; law_headings=["Article R823-4"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -15703,8 +16881,8 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme (fun (_: unit) -> true))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1182; start_column=5; - end_line=1182; end_column=44; + start_line=1193; start_column=5; + end_line=1193; end_column=44; law_headings=["Article R823-4"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -15736,8 +16914,8 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1137; start_column=5; - end_line=1140; end_column=44; + start_line=1148; start_column=5; + end_line=1151; end_column=44; law_headings=["Article R823-4"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -15790,7 +16968,7 @@ let eligibilite_aides_personnelle_logement (eligibilite_aides_personnelle_logeme "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1125; start_column=14; end_line=1125; end_column=49; + start_line=1136; start_column=14; end_line=1136; end_column=49; law_headings=["Article R823-4"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -17138,8 +18316,8 @@ let calcul_allocation_logement_locatif (calcul_allocation_logement_locatif_in: C ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4269; start_column=24; - end_line=4269; end_column=46; + start_line=4280; start_column=24; + end_line=4280; end_column=46; law_headings=["Article D842-4"; "Section 1 : Secteur locatif ordinaire"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -17209,8 +18387,8 @@ let calcul_allocation_logement_locatif (calcul_allocation_logement_locatif_in: C "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4261; start_column=24; - end_line=4261; end_column=43; + start_line=4272; start_column=24; + end_line=4272; end_column=43; law_headings=["Article D842-4"; "Section 1 : Secteur locatif ordinaire"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -17274,7 +18452,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4316; start_column=14; end_line=4316; end_column=42; + start_line=4090; start_column=14; end_line=4090; end_column=42; law_headings=["Article 42"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17298,7 +18476,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4305; start_column=14; end_line=4305; end_column=41; + start_line=4079; start_column=14; end_line=4079; end_column=41; law_headings=["Article 41"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17322,7 +18500,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4407; start_column=14; end_line=4407; end_column=51; + start_line=4181; start_column=14; end_line=4181; end_column=51; law_headings=["Article 44"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17340,7 +18518,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "calcul_nombre_parts.condition_2_du_832_25"] (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4827; start_column=14; end_line=4827; end_column=55; + start_line=4838; start_column=14; end_line=4838; end_column=55; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17350,7 +18528,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4827; start_column=14; end_line=4827; end_column=55; + start_line=4838; start_column=14; end_line=4838; end_column=55; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -17362,7 +18540,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4827; start_column=14; end_line=4827; end_column=55; + start_line=4838; start_column=14; end_line=4838; end_column=55; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17375,7 +18553,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "calcul_nombre_parts.nombre_personnes_à_charge"] (embed_integer) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4823; start_column=14; end_line=4823; end_column=59; + start_line=4834; start_column=14; end_line=4834; end_column=59; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17385,7 +18563,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4823; start_column=14; end_line=4823; end_column=59; + start_line=4834; start_column=14; end_line=4834; end_column=59; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -17397,7 +18575,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4823; start_column=14; end_line=4823; end_column=59; + start_line=4834; start_column=14; end_line=4834; end_column=59; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17411,7 +18589,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu (embed_situation_familiale_calcul_a_p_l) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4825; start_column=14; end_line=4825; end_column=64; + start_line=4836; start_column=14; end_line=4836; end_column=64; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17421,7 +18599,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4825; start_column=14; end_line=4825; end_column=64; + start_line=4836; start_column=14; end_line=4836; end_column=64; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -17433,7 +18611,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4825; start_column=14; end_line=4825; end_column=64; + start_line=4836; start_column=14; end_line=4836; end_column=64; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17687,7 +18865,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "calcul_apl_logement_foyer.condition_2_du_832_25"] (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4790; start_column=14; end_line=4790; end_column=61; + start_line=4801; start_column=14; end_line=4801; end_column=61; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -17697,7 +18875,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4790; start_column=14; end_line=4790; end_column=61; + start_line=4801; start_column=14; end_line=4801; end_column=61; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -17767,8 +18945,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4292; start_column=14; - end_line=4292; end_column=41; + start_line=4066; start_column=14; + end_line=4066; end_column=41; law_headings=["Article 40"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17791,11 +18969,11 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=633; start_column=14; - end_line=633; end_column=41; + start_line=686; start_column=14; + end_line=686; end_column=41; law_headings=["Article 40"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -17835,8 +19013,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4334; start_column=6; - end_line=4334; end_column=79; + start_line=4108; start_column=6; + end_line=4108; end_column=79; law_headings=["Article 43"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17870,8 +19048,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4369; start_column=6; - end_line=4370; end_column=38; + start_line=4143; start_column=6; + end_line=4144; end_column=38; law_headings=["Article 43"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17914,8 +19092,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4387; start_column=6; - end_line=4388; end_column=24; + start_line=4161; start_column=6; + end_line=4162; end_column=24; law_headings=["Article 43"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17941,8 +19119,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu (money_of_cents_string "27365")))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4351; start_column=6; - end_line=4352; end_column=46; + start_line=4125; start_column=6; + end_line=4126; end_column=46; law_headings=["Article 43"; "Chapitre VII : Calcul des allocations de logement en secteur logement-foyer"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -17976,11 +19154,11 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=656; start_column=6; - end_line=656; end_column=79; + start_line=709; start_column=6; + end_line=709; end_column=79; law_headings=["Article 43"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -18014,11 +19192,11 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=693; start_column=6; - end_line=694; end_column=38; + start_line=746; start_column=6; + end_line=747; end_column=38; law_headings=["Article 43"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -18061,11 +19239,11 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=712; start_column=6; - end_line=713; end_column=24; + start_line=765; start_column=6; + end_line=766; end_column=24; law_headings=["Article 43"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -18091,11 +19269,11 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu (money_of_cents_string "26440")))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=674; start_column=6; - end_line=675; end_column=46; + start_line=727; start_column=6; + end_line=728; end_column=46; law_headings=["Article 43"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -18141,8 +19319,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4839; start_column=14; - end_line=4839; end_column=36; + start_line=4850; start_column=14; + end_line=4850; end_column=36; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18179,7 +19357,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu (embed_money) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4820; start_column=14; end_line=4820; end_column=75; + start_line=4831; start_column=14; end_line=4831; end_column=75; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -18189,7 +19367,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4820; start_column=14; end_line=4820; end_column=75; + start_line=4831; start_column=14; end_line=4831; end_column=75; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18201,7 +19379,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4820; start_column=14; end_line=4820; end_column=75; + start_line=4831; start_column=14; end_line=4831; end_column=75; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -18215,7 +19393,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4819; start_column=14; end_line=4819; end_column=69; + start_line=4830; start_column=14; end_line=4830; end_column=69; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -18225,7 +19403,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4819; start_column=14; end_line=4819; end_column=69; + start_line=4830; start_column=14; end_line=4830; end_column=69; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18237,7 +19415,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4819; start_column=14; end_line=4819; end_column=69; + start_line=4830; start_column=14; end_line=4830; end_column=69; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -18251,7 +19429,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu (embed_decimal) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4829; start_column=14; end_line=4829; end_column=70; + start_line=4840; start_column=14; end_line=4840; end_column=70; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -18261,7 +19439,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4829; start_column=14; end_line=4829; end_column=70; + start_line=4840; start_column=14; end_line=4840; end_column=70; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18274,7 +19452,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4829; start_column=14; end_line=4829; end_column=70; + start_line=4840; start_column=14; end_line=4840; end_column=70; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -18305,7 +19483,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4793; start_column=14; end_line=4793; end_column=41; + start_line=4804; start_column=14; end_line=4804; end_column=41; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18337,8 +19515,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4951; start_column=14; - end_line=4951; end_column=36; + start_line=4962; start_column=14; + end_line=4962; end_column=36; law_headings=["Article D842-17"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18376,7 +19554,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4831; start_column=14; end_line=4831; end_column=27; + start_line=4842; start_column=14; end_line=4842; end_column=27; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18407,8 +19585,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4960; start_column=14; - end_line=4960; end_column=47; + start_line=4971; start_column=14; + end_line=4971; end_column=47; law_headings=["Article D842-17"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18470,7 +19648,7 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4772; start_column=14; end_line=4772; end_column=33; + start_line=4783; start_column=14; end_line=4783; end_column=33; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18506,8 +19684,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4853; start_column=14; - end_line=4853; end_column=36; + start_line=4864; start_column=14; + end_line=4864; end_column=36; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18580,8 +19758,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4871; start_column=14; - end_line=4871; end_column=36; + start_line=4882; start_column=14; + end_line=4882; end_column=36; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18637,8 +19815,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4885; start_column=14; - end_line=4885; end_column=36; + start_line=4896; start_column=14; + end_line=4896; end_column=36; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18713,8 +19891,8 @@ let calcul_allocation_logement_foyer (calcul_allocation_logement_foyer_in: Calcu "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4906; start_column=14; - end_line=4906; end_column=36; + start_line=4917; start_column=14; + end_line=4917; end_column=36; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18792,7 +19970,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4179; start_column=14; end_line=4179; end_column=40; + start_line=3953; start_column=14; end_line=3953; end_column=40; law_headings=["Article 35"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -18842,7 +20020,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4189; start_column=14; end_line=4189; end_column=41; + start_line=3963; start_column=14; end_line=3963; end_column=41; law_headings=["Article 36"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -18866,7 +20044,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4243; start_column=14; end_line=4243; end_column=41; + start_line=4017; start_column=14; end_line=4017; end_column=41; law_headings=["Article 38"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -18890,7 +20068,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4268; start_column=14; end_line=4268; end_column=41; + start_line=4042; start_column=14; end_line=4042; end_column=41; law_headings=["Article 39"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -18914,7 +20092,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4250; start_column=14; end_line=4250; end_column=33; + start_line=4024; start_column=14; end_line=4024; end_column=33; law_headings=["Article 38"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -18938,7 +20116,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4261; start_column=14; end_line=4261; end_column=33; + start_line=4035; start_column=14; end_line=4035; end_column=33; law_headings=["Article 39"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -18956,7 +20134,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "calcul_nombre_parts.nombre_personnes_à_charge"] (embed_integer) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4434; start_column=14; end_line=4434; end_column=59; + start_line=4445; start_column=14; end_line=4445; end_column=59; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18967,7 +20145,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4434; start_column=14; end_line=4434; end_column=59; + start_line=4445; start_column=14; end_line=4445; end_column=59; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18979,7 +20157,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4434; start_column=14; end_line=4434; end_column=59; + start_line=4445; start_column=14; end_line=4445; end_column=59; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -18994,7 +20172,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (embed_situation_familiale_calcul_a_p_l) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4436; start_column=14; end_line=4436; end_column=64; + start_line=4447; start_column=14; end_line=4447; end_column=64; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -19005,7 +20183,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4436; start_column=14; end_line=4436; end_column=64; + start_line=4447; start_column=14; end_line=4447; end_column=64; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -19017,7 +20195,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4436; start_column=14; end_line=4436; end_column=64; + start_line=4447; start_column=14; end_line=4447; end_column=64; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -19100,11 +20278,11 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=602; start_column=5; - end_line=602; end_column=16; + start_line=655; start_column=5; + end_line=655; end_column=16; law_headings=["Article 37"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_and (o_gte_dat_dat date_courante_ @@ -19124,11 +20302,11 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (o_torat_int nombre_personnes_a_charge_))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=564; start_column=43; - end_line=564; end_column=70; + start_line=617; start_column=43; + end_line=617; end_column=70; law_headings=["Article 34"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -19160,8 +20338,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4221; start_column=5; - end_line=4221; end_column=16; + start_line=3995; start_column=5; + end_line=3995; end_column=16; law_headings=["Article 37"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -19181,8 +20359,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (o_torat_int nombre_personnes_a_charge_))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4167; start_column=31; - end_line=4167; end_column=58; + start_line=3941; start_column=31; + end_line=3941; end_column=58; law_headings=["Article 34"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -19223,8 +20401,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4444; start_column=14; - end_line=4444; end_column=36; + start_line=4455; start_column=14; + end_line=4455; end_column=36; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -19277,8 +20455,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3129; start_column=5; - end_line=3129; end_column=62; + start_line=2903; start_column=5; + end_line=2903; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -19456,8 +20634,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3175; start_column=5; - end_line=3175; end_column=62; + start_line=2949; start_column=5; + end_line=2949; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -19635,8 +20813,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3221; start_column=5; - end_line=3221; end_column=62; + start_line=2995; start_column=5; + end_line=2995; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -19814,8 +20992,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3267; start_column=5; - end_line=3267; end_column=62; + start_line=3041; start_column=5; + end_line=3041; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -19993,8 +21171,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3313; start_column=5; - end_line=3313; end_column=62; + start_line=3087; start_column=5; + end_line=3087; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -20172,8 +21350,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3359; start_column=5; - end_line=3359; end_column=62; + start_line=3133; start_column=5; + end_line=3133; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -20351,8 +21529,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3405; start_column=5; - end_line=3405; end_column=62; + start_line=3179; start_column=5; + end_line=3179; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -20530,8 +21708,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3451; start_column=5; - end_line=3451; end_column=62; + start_line=3225; start_column=5; + end_line=3225; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -20692,8 +21870,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3496; start_column=5; - end_line=3496; end_column=62; + start_line=3270; start_column=5; + end_line=3270; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -20854,8 +22032,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3541; start_column=5; - end_line=3541; end_column=62; + start_line=3315; start_column=5; + end_line=3315; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21016,8 +22194,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3586; start_column=5; - end_line=3586; end_column=62; + start_line=3360; start_column=5; + end_line=3360; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21178,8 +22356,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3631; start_column=5; - end_line=3631; end_column=62; + start_line=3405; start_column=5; + end_line=3405; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21340,8 +22518,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3676; start_column=5; - end_line=3676; end_column=62; + start_line=3450; start_column=5; + end_line=3450; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21502,8 +22680,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3721; start_column=5; - end_line=3721; end_column=62; + start_line=3495; start_column=5; + end_line=3495; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21664,8 +22842,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3766; start_column=5; - end_line=3766; end_column=62; + start_line=3540; start_column=5; + end_line=3540; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21826,8 +23004,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3811; start_column=5; - end_line=3811; end_column=62; + start_line=3585; start_column=5; + end_line=3585; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -21988,8 +23166,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3856; start_column=5; - end_line=3856; end_column=62; + start_line=3630; start_column=5; + end_line=3630; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -22150,8 +23328,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3901; start_column=5; - end_line=3901; end_column=62; + start_line=3675; start_column=5; + end_line=3675; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -22312,8 +23490,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3946; start_column=5; - end_line=3946; end_column=62; + start_line=3720; start_column=5; + end_line=3720; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -22474,8 +23652,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=3991; start_column=5; - end_line=3991; end_column=62; + start_line=3765; start_column=5; + end_line=3765; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -22636,8 +23814,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4036; start_column=5; - end_line=4036; end_column=62; + start_line=3810; start_column=5; + end_line=3810; end_column=62; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -22798,8 +23976,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4081; start_column=5; - end_line=4081; end_column=32; + start_line=3855; start_column=5; + end_line=3855; end_column=32; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -22981,8 +24159,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4684; start_column=6; - end_line=4690; end_column=6; + start_line=4695; start_column=6; + end_line=4701; end_column=6; law_headings=["Article D842-12"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23044,8 +24222,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4702; start_column=5; - end_line=4703; end_column=59; + start_line=4713; start_column=5; + end_line=4714; end_column=59; law_headings=["Article D842-12"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23088,8 +24266,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4625; start_column=15; - end_line=4625; end_column=37; + start_line=4636; start_column=15; + end_line=4636; end_column=37; law_headings=["Article D842-11"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23156,11 +24334,11 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/archives.catala_fr"; - start_line=580; start_column=24; - end_line=580; end_column=56; + start_line=633; start_column=24; + end_line=633; end_column=56; law_headings=["Article 37"; - "Articles valables du 1er octobre 2021 au 1er juillet 2022"; - "Archives législatives et réglementaires"]} + "Articles valables du 1er octobre 2021 au 30 juin 2022"; + "Archives de l'arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} (o_and (o_gte_dat_dat date_courante_ (date_of_numbers (2021) (10) (1))) @@ -23204,8 +24382,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a param_)))))))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4201; start_column=24; - end_line=4201; end_column=56; + start_line=3975; start_column=24; + end_line=3975; end_column=56; law_headings=["Article 37"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -23248,8 +24426,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (fun (_: unit) -> raise EmptyError))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4125; start_column=14; - end_line=4125; end_column=46; + start_line=3899; start_column=14; + end_line=3899; end_column=46; law_headings=["Article 33"; "Chapitre IV : Calcul des allocations de logement en secteur accession"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -23303,8 +24481,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4723; start_column=5; - end_line=4723; end_column=28; + start_line=4734; start_column=5; + end_line=4734; end_column=28; law_headings=["Article D842-12"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23316,7 +24494,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (fun (_: unit) -> ressources_menage_arrondies_base_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4713; start_column=14; end_line=4713; end_column=41; + start_line=4724; start_column=14; end_line=4724; end_column=41; law_headings=["Article D842-12"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23364,8 +24542,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4574; start_column=5; - end_line=4574; end_column=44; + start_line=4585; start_column=5; + end_line=4585; end_column=44; law_headings=["Article D842-9"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23409,7 +24587,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a then plafond_entree_ else plafond_signature_)))))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4556; start_column=14; end_line=4556; end_column=39; + start_line=4567; start_column=14; end_line=4567; end_column=39; law_headings=["Article D842-9"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23446,7 +24624,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (embed_money) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4430; start_column=14; end_line=4430; end_column=75; + start_line=4441; start_column=14; end_line=4441; end_column=75; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23457,7 +24635,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4430; start_column=14; end_line=4430; end_column=75; + start_line=4441; start_column=14; end_line=4441; end_column=75; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23469,7 +24647,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4430; start_column=14; end_line=4430; end_column=75; + start_line=4441; start_column=14; end_line=4441; end_column=75; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23484,7 +24662,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4429; start_column=14; end_line=4429; end_column=69; + start_line=4440; start_column=14; end_line=4440; end_column=69; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23495,7 +24673,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4429; start_column=14; end_line=4429; end_column=69; + start_line=4440; start_column=14; end_line=4440; end_column=69; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23507,7 +24685,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4429; start_column=14; end_line=4429; end_column=69; + start_line=4440; start_column=14; end_line=4440; end_column=69; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23522,7 +24700,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a (embed_decimal) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4432; start_column=14; end_line=4432; end_column=70; + start_line=4443; start_column=14; end_line=4443; end_column=70; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23533,7 +24711,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4432; start_column=14; end_line=4432; end_column=70; + start_line=4443; start_column=14; end_line=4443; end_column=70; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23546,7 +24724,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a with EmptyError -> (raise (NoValueProvided {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4432; start_column=14; end_line=4432; end_column=70; + start_line=4443; start_column=14; end_line=4443; end_column=70; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23770,7 +24948,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "calcul_apl_logement_foyer.condition_2_du_832_25"] (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4389; start_column=14; end_line=4389; end_column=61; + start_line=4400; start_column=14; end_line=4400; end_column=61; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23781,7 +24959,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4389; start_column=14; end_line=4389; end_column=61; + start_line=4400; start_column=14; end_line=4400; end_column=61; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23796,7 +24974,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "calcul_apl_logement_foyer.n_nombre_parts_d832_25"] (embed_decimal) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4396; start_column=14; end_line=4396; end_column=62; + start_line=4407; start_column=14; end_line=4407; end_column=62; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23807,7 +24985,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4396; start_column=14; end_line=4396; end_column=62; + start_line=4407; start_column=14; end_line=4407; end_column=62; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23874,8 +25052,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4659; start_column=7; - end_line=4662; end_column=44; + start_line=4670; start_column=7; + end_line=4673; end_column=44; law_headings=["Article D842-11"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23922,7 +25100,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a coefficient_d842_11_))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4647; start_column=14; end_line=4647; end_column=50; + start_line=4658; start_column=14; end_line=4658; end_column=50; law_headings=["Article D842-11"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23950,7 +25128,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4410; start_column=14; end_line=4410; end_column=33; + start_line=4421; start_column=14; end_line=4421; end_column=33; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -23982,7 +25160,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4425; start_column=14; end_line=4425; end_column=33; + start_line=4436; start_column=14; end_line=4436; end_column=33; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24011,7 +25189,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4399; start_column=14; end_line=4399; end_column=41; + start_line=4410; start_column=14; end_line=4410; end_column=41; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24043,8 +25221,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4636; start_column=14; - end_line=4636; end_column=47; + start_line=4647; start_column=14; + end_line=4647; end_column=47; law_headings=["Article D842-11"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24099,7 +25277,7 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4370; start_column=14; end_line=4370; end_column=33; + start_line=4381; start_column=14; end_line=4381; end_column=33; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24135,8 +25313,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4458; start_column=14; - end_line=4458; end_column=36; + start_line=4469; start_column=14; + end_line=4469; end_column=36; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24208,8 +25386,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4472; start_column=14; - end_line=4472; end_column=36; + start_line=4483; start_column=14; + end_line=4483; end_column=36; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24284,8 +25462,8 @@ let calcul_allocation_logement_accession_propriete (calcul_allocation_logement_a "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4492; start_column=14; - end_line=4492; end_column=36; + start_line=4503; start_column=14; + end_line=4503; end_column=36; law_headings=["Article D842-6"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -24353,7 +25531,7 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1401; start_column=14; end_line=1401; end_column=34; + start_line=1412; start_column=14; end_line=1412; end_column=34; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -24396,7 +25574,7 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1962; start_column=14; end_line=1962; end_column=31; + start_line=1973; start_column=14; end_line=1973; end_column=31; law_headings=["Article D823-17"; "Sous-section 2 : Calcul de l'aide en secteur locatif"; "Section 1 : Calcul, liquidation et versement des aides"; @@ -24475,7 +25653,7 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1424; start_column=14; end_line=1424; end_column=36; + start_line=1435; start_column=14; end_line=1435; end_column=36; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -24489,197 +25667,200 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C with | CategorieCalculAPL.Location location_ -> (let traitement_formule_ : - CalculAidePersonnaliseeLogementLocatif.t = - (calcul_aide_personnalisee_logement_locatif - ({CalculAidePersonnaliseeLogementLocatifIn.loyer_principal_base_in = - (try (location_.Location.loyer_principal) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1434; start_column=31; - end_line=1434; end_column=55; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.ressources_menage_arrondies_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1429; start_column=43; - end_line=1429; end_column=60; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.beneficiaire_aide_adulte_ou_enfant_handicapes_in = - ( - try - (location_.Location.beneficiaire_aide_adulte_ou_enfant_handicapes) + CalculAidePersonnaliseeLogementLocatif.t = ((log_end_call + ["CalculAidePersonnaliséeLogementLocatif"; "direct"] + ((log_begin_call + ["CalculAidePersonnaliséeLogementLocatif"; "direct"] + calcul_aide_personnalisee_logement_locatif) + ((log_variable_definition + ["CalculAidePersonnaliséeLogementLocatif"; "input"] + (embed_calcul_aide_personnalisee_logement_locatif_in) + ({CalculAidePersonnaliseeLogementLocatifIn.loyer_principal_base_in = + (try (location_.Location.loyer_principal) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1445; start_column=31; + end_line=1445; end_column=55; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.ressources_menage_arrondies_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1440; start_column=43; + end_line=1440; end_column=60; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.beneficiaire_aide_adulte_ou_enfant_handicapes_in = + ( + try + (location_.Location.beneficiaire_aide_adulte_ou_enfant_handicapes) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1447; start_column=15; + end_line=1447; end_column=69; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.date_courante_in = + (try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1443; start_column=29; + end_line=1443; end_column=42; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1441; start_column=41; + end_line=1441; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1444; start_column=46; + end_line=1444; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.zone_in = ( + try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1442; start_column=20; + end_line=1442; end_column=24; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.logement_est_chambre_in = + (try (location_.Location.logement_est_chambre) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1448; start_column=36; + end_line=1448; end_column=65; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in = + ( + try + (location_.Location.agees_ou_handicap_adultes_hebergees_onereux_particuliers) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1451; start_column=15; + end_line=1451; end_column=80; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.type_aide_in = + (try type_aide_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1452; start_column=25; + end_line=1452; end_column=34; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.colocation_in = + (try (location_.Location.colocation) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1449; start_column=26; + end_line=1449; end_column=45; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.reduction_loyer_solidarite_in = + ( + try + (match (location_.Location.bailleur) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1436; start_column=15; - end_line=1436; end_column=69; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1432; start_column=29; - end_line=1432; end_column=42; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1430; start_column=41; - end_line=1430; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1433; start_column=46; - end_line=1433; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.zone_in = - (try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1431; start_column=20; - end_line=1431; end_column=24; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.logement_est_chambre_in = - ( - try (location_.Location.logement_est_chambre) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1437; start_column=36; - end_line=1437; end_column=65; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in = - ( - try - (location_.Location.agees_ou_handicap_adultes_hebergees_onereux_particuliers) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1440; start_column=15; - end_line=1440; end_column=80; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.type_aide_in = - (try type_aide_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1441; start_column=25; - end_line=1441; end_column=34; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.colocation_in = - (try (location_.Location.colocation) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1438; start_column=26; - end_line=1438; end_column=45; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.reduction_loyer_solidarite_in = - ( - try - (match (location_.Location.bailleur) - with - | TypeBailleur.BailleurSocial bailleur_ -> - (bailleur_.ConventionBailleurSocial.reduction_loyer_solidarite_percue) - | TypeBailleur.BailleurPriveAvecConventionnementSocial _ -> - (money_of_cents_string "0") - | TypeBailleur.BailleurPrive _ -> - (money_of_cents_string "0")) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1443; start_column=16; - end_line=1446; end_column=39; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementLocatifIn.logement_meuble_d842_2_in = - ( - try (location_.Location.logement_meuble_d842_2) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1447; start_column=38; - end_line=1447; end_column=69; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + | TypeBailleur.BailleurSocial bailleur_ -> + (bailleur_.ConventionBailleurSocial.reduction_loyer_solidarite_percue) + | TypeBailleur.BailleurPriveAvecConventionnementSocial _ -> + (money_of_cents_string "0") + | TypeBailleur.BailleurPrive _ -> + (money_of_cents_string "0")) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1454; start_column=16; + end_line=1457; end_column=39; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementLocatifIn.logement_meuble_d842_2_in = + ( + try (location_.Location.logement_meuble_d842_2) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1458; start_column=38; + end_line=1458; end_column=69; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAidePersonnaliseeLogementLocatif.aide_finale_formule); @@ -24688,214 +25869,220 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C | CategorieCalculAPL.AccessionPropriete proprietaire_ -> (let traitement_formule_ : CalculAidePersonnaliseeLogementAccessionPropriete.t = - (calcul_aide_personnalisee_logement_accession_propriete - ({CalculAidePersonnaliseeLogementAccessionProprieteIn.mensualite_principale_in = - ( - try - (proprietaire_.Proprietaire.mensualite_principale) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1485; start_column=38; - end_line=1485; end_column=72; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.ressources_menage_arrondies_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1480; start_column=44; - end_line=1480; end_column=61; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1481; start_column=42; - end_line=1481; end_column=67; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1484; start_column=47; - end_line=1484; end_column=77; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.type_travaux_logement_in = - ( - try - (proprietaire_.Proprietaire.type_travaux_logement_d832_15) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1486; start_column=38; - end_line=1486; end_column=80; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.date_signature_pret_in = - ( - try - ((proprietaire_.Proprietaire.pret).Pret.date_signature) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1487; start_column=36; - end_line=1487; end_column=68; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.local_habite_premiere_fois_beneficiaire_in = - ( - try - (proprietaire_.Proprietaire.local_habite_premiere_fois_beneficiaire) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1489; start_column=14; - end_line=1489; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.date_entree_logement_in = - ( - try - (proprietaire_.Proprietaire.date_entree_logement) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1490; start_column=37; - end_line=1490; end_column=70; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.copropriete_in = - ( - try (proprietaire_.Proprietaire.copropriete) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1491; start_column=28; - end_line=1491; end_column=52; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.situation_r822_11_13_17_in = - ( - try - (proprietaire_.Proprietaire.situation_r822_11_13_17) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1492; start_column=40; - end_line=1492; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.zone_in = - (try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1482; start_column=21; - end_line=1482; end_column=25; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.type_pret_in = - ( - try - ((proprietaire_.Proprietaire.pret).Pret.type_pret) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1493; start_column=26; - end_line=1493; end_column=53; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.anciennete_logement_in = - ( - try - (proprietaire_.Proprietaire.anciennete_logement) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1494; start_column=36; - end_line=1494; end_column=68; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementAccessionProprieteIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1483; start_column=30; - end_line=1483; end_column=43; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + ((log_end_call + ["CalculAidePersonnaliséeLogementAccessionPropriété"; + "direct"] ((log_begin_call + ["CalculAidePersonnaliséeLogementAccessionPropriété"; + "direct"] + calcul_aide_personnalisee_logement_accession_propriete) + ((log_variable_definition + ["CalculAidePersonnaliséeLogementAccessionPropriété"; + "input"] + (embed_calcul_aide_personnalisee_logement_accession_propriete_in) + ({CalculAidePersonnaliseeLogementAccessionProprieteIn.mensualite_principale_in = + ( + try (proprietaire_.Proprietaire.mensualite_principale) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1496; start_column=38; + end_line=1496; end_column=72; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.ressources_menage_arrondies_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1491; start_column=44; + end_line=1491; end_column=61; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1492; start_column=42; + end_line=1492; end_column=67; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1495; start_column=47; + end_line=1495; end_column=77; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.type_travaux_logement_in = + ( + try + (proprietaire_.Proprietaire.type_travaux_logement_d832_15) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1497; start_column=38; + end_line=1497; end_column=80; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.date_signature_pret_in = + ( + try + ((proprietaire_.Proprietaire.pret).Pret.date_signature) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1498; start_column=36; + end_line=1498; end_column=68; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.local_habite_premiere_fois_beneficiaire_in = + ( + try + (proprietaire_.Proprietaire.local_habite_premiere_fois_beneficiaire) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1500; start_column=14; + end_line=1500; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.date_entree_logement_in = + ( + try + (proprietaire_.Proprietaire.date_entree_logement) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1501; start_column=37; + end_line=1501; end_column=70; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.copropriete_in = + (try (proprietaire_.Proprietaire.copropriete) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1502; start_column=28; + end_line=1502; end_column=52; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.situation_r822_11_13_17_in = + ( + try + (proprietaire_.Proprietaire.situation_r822_11_13_17) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1503; start_column=40; + end_line=1503; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.zone_in = + (try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1493; start_column=21; + end_line=1493; end_column=25; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.type_pret_in = + ( + try + ((proprietaire_.Proprietaire.pret).Pret.type_pret) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1504; start_column=26; + end_line=1504; end_column=53; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.anciennete_logement_in = + ( + try (proprietaire_.Proprietaire.anciennete_logement) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1505; start_column=36; + end_line=1505; end_column=68; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementAccessionProprieteIn.date_courante_in = + (try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1494; start_column=30; + end_line=1494; end_column=43; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAidePersonnaliseeLogementAccessionPropriete.aide_finale_formule); @@ -24903,122 +26090,125 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C (traitement_formule_.CalculAidePersonnaliseeLogementAccessionPropriete.traitement_aide_finale)})) | CategorieCalculAPL.LogementFoyer logement_foyer__ -> (let traitement_formule_ : - CalculAidePersonnaliseeLogementFoyer.t = - (calcul_aide_personnalisee_logement_foyer - ({CalculAidePersonnaliseeLogementFoyerIn.type_logement_foyer_in = - ( - try (logement_foyer__.LogementFoyer.type_user) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1466; start_column=35; - end_line=1466; end_column=55; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.date_conventionnement_in = - ( - try - (logement_foyer__.LogementFoyer.date_conventionnement) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1467; start_column=37; - end_line=1467; end_column=74; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.ressources_menage_arrondies_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1460; start_column=43; - end_line=1460; end_column=60; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1461; start_column=41; - end_line=1461; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1464; start_column=46; - end_line=1464; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.zone_in = ( - try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1462; start_column=20; - end_line=1462; end_column=24; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1463; start_column=29; - end_line=1463; end_column=42; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.redevance_in = - ( - try (logement_foyer__.LogementFoyer.redevance) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1465; start_column=25; - end_line=1465; end_column=50; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAidePersonnaliseeLogementFoyerIn.condition_2_du_832_25_in = - (fun (_: unit) -> raise EmptyError); - CalculAidePersonnaliseeLogementFoyerIn.n_nombre_parts_d832_25_in = - (fun (_: unit) -> raise EmptyError)})) + CalculAidePersonnaliseeLogementFoyer.t = ((log_end_call + ["CalculAidePersonnaliséeLogementFoyer"; "direct"] + ((log_begin_call + ["CalculAidePersonnaliséeLogementFoyer"; "direct"] + calcul_aide_personnalisee_logement_foyer) + ((log_variable_definition + ["CalculAidePersonnaliséeLogementFoyer"; "input"] + (embed_calcul_aide_personnalisee_logement_foyer_in) + ({CalculAidePersonnaliseeLogementFoyerIn.type_logement_foyer_in = + (try (logement_foyer__.LogementFoyer.type_user) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1477; start_column=35; + end_line=1477; end_column=55; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.date_conventionnement_in = + ( + try + (logement_foyer__.LogementFoyer.date_conventionnement) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1478; start_column=37; + end_line=1478; end_column=74; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.ressources_menage_arrondies_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1471; start_column=43; + end_line=1471; end_column=60; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1472; start_column=41; + end_line=1472; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1475; start_column=46; + end_line=1475; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.zone_in = ( + try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1473; start_column=20; + end_line=1473; end_column=24; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.date_courante_in = + (try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1474; start_column=29; + end_line=1474; end_column=42; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.redevance_in = + (try (logement_foyer__.LogementFoyer.redevance) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1476; start_column=25; + end_line=1476; end_column=50; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAidePersonnaliseeLogementFoyerIn.condition_2_du_832_25_in = + (fun (_: unit) -> raise EmptyError); + CalculAidePersonnaliseeLogementFoyerIn.n_nombre_parts_d832_25_in = + (fun (_: unit) -> raise EmptyError)})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAidePersonnaliseeLogementFoyer.aide_finale_formule); @@ -25047,8 +26237,8 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1414; start_column=14; - end_line=1414; end_column=36; + start_line=1425; start_column=14; + end_line=1425; end_column=36; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -25089,7 +26279,7 @@ let calcul_aide_personnalisee_logement (calcul_aide_personnalisee_logement_in: C "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1412; start_column=14; end_line=1412; end_column=33; + start_line=1423; start_column=14; end_line=1423; end_column=33; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -25131,7 +26321,7 @@ let eligibilite_prime_de_demenagement (eligibilite_prime_de_demenagement_in: Eli "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2071; start_column=14; end_line=2071; end_column=47; + start_line=2082; start_column=14; end_line=2082; end_column=47; law_headings=["Article D823-20"; "Section 2 : Prime de déménagement"; "Chapitre III : Modalités de liquidation et de versement"; @@ -25167,8 +26357,8 @@ let eligibilite_prime_de_demenagement (eligibilite_prime_de_demenagement_in: Eli "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2048; start_column=5; - end_line=2053; end_column=77; + start_line=2059; start_column=5; + end_line=2064; end_column=77; law_headings=["Article D823-20"; "Section 2 : Prime de déménagement"; "Chapitre III : Modalités de liquidation et de versement"; @@ -25364,8 +26554,8 @@ let eligibilite_prime_de_demenagement (eligibilite_prime_de_demenagement_in: Eli "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2057; start_column=6; - end_line=2067; end_column=75; + start_line=2068; start_column=6; + end_line=2078; end_column=75; law_headings=["Article D823-20"; "Section 2 : Prime de déménagement"; "Chapitre III : Modalités de liquidation et de versement"; @@ -25417,7 +26607,7 @@ let eligibilite_prime_de_demenagement (eligibilite_prime_de_demenagement_in: Eli "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/arrete_2019-09-27.catala_fr"; - start_line=4422; start_column=14; end_line=4422; end_column=29; + start_line=4196; start_column=14; end_line=4196; end_column=29; law_headings=["Article 45"; "Chapitre VIII : Prime de déménagement"; "Arrêté du 27 septembre 2019 relatif au calcul des aides personnelles au logement et de la prime de déménagement"]} @@ -25527,7 +26717,7 @@ let eligibilite_prime_de_demenagement (eligibilite_prime_de_demenagement_in: Eli "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2097; start_column=14; end_line=2097; end_column=40; + start_line=2108; start_column=14; end_line=2108; end_column=40; law_headings=["Article D823-22"; "Section 2 : Prime de déménagement"; "Chapitre III : Modalités de liquidation et de versement"; @@ -25594,8 +26784,8 @@ let eligibilite_aide_personnalisee_logement (eligibilite_aide_personnalisee_loge ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3009; start_column=5; - end_line=3012; end_column=41; + start_line=3020; start_column=5; + end_line=3023; end_column=41; law_headings=["Article R832-7"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -25635,8 +26825,8 @@ let eligibilite_aide_personnalisee_logement (eligibilite_aide_personnalisee_loge (fun (_: unit) -> true))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=2974; start_column=5; - end_line=2976; end_column=42; + start_line=2985; start_column=5; + end_line=2987; end_column=42; law_headings=["Article R832-5"; "Section 2 : Accession à la propriété"; "Chapitre II : Modalités de liquidation et de versement de l'aide personnalisée au logement"; @@ -26034,9 +27224,9 @@ let eligibilite_aide_personnalisee_logement (eligibilite_aide_personnalisee_loge (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=3681; + start_line=3692; start_column=5; - end_line=3686; end_column=30; + end_line=3697; end_column=30; law_headings= ["Article R832-21"; "Sous-Section 1 : Conditions d'assimilation des logements-foyers aux logements à usage locatif"; @@ -26328,7 +27518,7 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4159; start_column=14; end_line=4159; end_column=28; + start_line=4170; start_column=14; end_line=4170; end_column=28; law_headings=["Article D841-1"; "Chapitre 1 : Champ d'application"; "Titre IV : Allocations de Logement"; @@ -26490,9 +27680,9 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4352; + start_line=4363; start_column=5; - end_line=4357; end_column=28; + end_line=4368; end_column=28; law_headings=["Article R842-5"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -26535,9 +27725,9 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4335; + start_line=4346; start_column=5; - end_line=4340; end_column=28; + end_line=4351; end_column=28; law_headings=["Article R842-5"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -26579,8 +27769,8 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi (fun (_: unit) -> true))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4318; start_column=5; - end_line=4325; end_column=28; + start_line=4329; start_column=5; + end_line=4336; end_column=28; law_headings=["Article R842-5"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -26634,8 +27824,8 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi (fun (_: unit) -> raise EmptyError))|]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4288; start_column=5; - end_line=4290; end_column=28; + start_line=4299; start_column=5; + end_line=4301; end_column=28; law_headings=["Article R842-5"; "Section 2 : Accession à la propriété"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -26746,8 +27936,8 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4756; start_column=9; - end_line=4756; end_column=68; + start_line=4767; start_column=9; + end_line=4767; end_column=68; law_headings=["Article R842-14"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -26758,8 +27948,8 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4756; start_column=9; - end_line=4756; end_column=68; + start_line=4767; start_column=9; + end_line=4767; end_column=68; law_headings=["Article R842-14"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -26784,7 +27974,7 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi "éligibilité_commune.condition_logement_surface"] (embed_bool) (handle_default {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4757; start_column=9; end_line=4757; end_column=55; + start_line=4768; start_column=9; end_line=4768; end_column=55; law_headings=["Article R842-14"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; "Titre IV : Allocations de Logement"; @@ -26794,7 +27984,7 @@ let eligibilite_allocation_logement (eligibilite_allocation_logement_in: Eligibi ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4757; start_column=9; end_line=4757; end_column=55; + start_line=4768; start_column=9; end_line=4768; end_column=55; law_headings=["Article R842-14"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -27429,7 +28619,7 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1383; start_column=14; end_line=1383; end_column=34; + start_line=1394; start_column=14; end_line=1394; end_column=34; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -27470,7 +28660,7 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=4799; start_column=14; end_line=4799; end_column=31; + start_line=4810; start_column=14; end_line=4810; end_column=31; law_headings=["Article D842-15"; "Section 3 : Logements-foyers"; "Chapitre 2 : Modalités de liquidation et de versement des allocations de logement"; @@ -27544,7 +28734,7 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1508; start_column=14; end_line=1508; end_column=36; + start_line=1519; start_column=14; end_line=1519; end_column=36; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -27558,213 +28748,215 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL with | ModeOccupation.Locataire location_ -> (let traitement_formule_ : CalculAllocationLogementLocatif.t - = - (calcul_allocation_logement_locatif - ({CalculAllocationLogementLocatifIn.loyer_principal_in = - (try (location_.Location.loyer_principal) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1518; start_column=31; - end_line=1518; end_column=55; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.ressources_menage_arrondies_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1513; start_column=43; - end_line=1513; end_column=60; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.beneficiaire_aide_adulte_ou_enfant_handicapes_in = - ( - try - (location_.Location.beneficiaire_aide_adulte_ou_enfant_handicapes) + = ((log_end_call + ["CalculAllocationLogementLocatif"; "direct"] + ((log_begin_call + ["CalculAllocationLogementLocatif"; "direct"] + calcul_allocation_logement_locatif) + ((log_variable_definition + ["CalculAllocationLogementLocatif"; "input"] + (embed_calcul_allocation_logement_locatif_in) + ({CalculAllocationLogementLocatifIn.loyer_principal_in = ( + try (location_.Location.loyer_principal) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1529; start_column=31; + end_line=1529; end_column=55; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.ressources_menage_arrondies_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1524; start_column=43; + end_line=1524; end_column=60; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.beneficiaire_aide_adulte_ou_enfant_handicapes_in = + ( + try + (location_.Location.beneficiaire_aide_adulte_ou_enfant_handicapes) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1531; start_column=15; + end_line=1531; end_column=69; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.date_courante_in = ( + try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1527; start_column=29; + end_line=1527; end_column=42; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1525; start_column=41; + end_line=1525; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1528; start_column=46; + end_line=1528; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.zone_in = ( + try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1526; start_column=20; + end_line=1526; end_column=24; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.logement_est_chambre_in = + (try (location_.Location.logement_est_chambre) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1532; start_column=36; + end_line=1532; end_column=65; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in = + ( + try + (location_.Location.agees_ou_handicap_adultes_hebergees_onereux_particuliers) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1535; start_column=15; + end_line=1535; end_column=80; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.type_aide_in = ( + try type_aide_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1536; start_column=25; + end_line=1536; end_column=34; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.colocation_in = ( + try (location_.Location.colocation) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1533; start_column=26; + end_line=1533; end_column=45; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.reduction_loyer_solidarite_in = + ( + try + (match (location_.Location.bailleur) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1520; start_column=15; - end_line=1520; end_column=69; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1516; start_column=29; - end_line=1516; end_column=42; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1514; start_column=41; - end_line=1514; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1517; start_column=46; - end_line=1517; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.zone_in = ( - try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1515; start_column=20; - end_line=1515; end_column=24; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.logement_est_chambre_in = - ( - try (location_.Location.logement_est_chambre) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1521; start_column=36; - end_line=1521; end_column=65; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in = - ( - try - (location_.Location.agees_ou_handicap_adultes_hebergees_onereux_particuliers) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1524; start_column=15; - end_line=1524; end_column=80; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.type_aide_in = ( - try type_aide_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1525; start_column=25; - end_line=1525; end_column=34; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.colocation_in = ( - try (location_.Location.colocation) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1522; start_column=26; - end_line=1522; end_column=45; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.reduction_loyer_solidarite_in = - ( - try - (match (location_.Location.bailleur) - with - | TypeBailleur.BailleurSocial bailleur_ -> - (bailleur_.ConventionBailleurSocial.reduction_loyer_solidarite_percue) - | TypeBailleur.BailleurPriveAvecConventionnementSocial _ -> - (money_of_cents_string "0") - | TypeBailleur.BailleurPrive _ -> - (money_of_cents_string "0")) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1527; start_column=16; - end_line=1530; end_column=39; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.logement_meuble_d842_2_in = - ( - try (location_.Location.logement_meuble_d842_2) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1531; start_column=38; - end_line=1531; end_column=69; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.changement_logement_d842_4_in = - ( - try - (location_.Location.changement_logement_d842_4) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1532; start_column=42; - end_line=1532; end_column=77; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + | TypeBailleur.BailleurSocial bailleur_ -> + (bailleur_.ConventionBailleurSocial.reduction_loyer_solidarite_percue) + | TypeBailleur.BailleurPriveAvecConventionnementSocial _ -> + (money_of_cents_string "0") + | TypeBailleur.BailleurPrive _ -> + (money_of_cents_string "0")) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1538; start_column=16; + end_line=1541; end_column=39; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.logement_meuble_d842_2_in = + ( + try (location_.Location.logement_meuble_d842_2) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1542; start_column=38; + end_line=1542; end_column=69; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.changement_logement_d842_4_in = + ( + try (location_.Location.changement_logement_d842_4) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1543; start_column=42; + end_line=1543; end_column=77; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAllocationLogementLocatif.aide_finale_formule); @@ -27772,132 +28964,136 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL (traitement_formule_.CalculAllocationLogementLocatif.traitement_aide_finale)})) | ModeOccupation.ResidentLogementFoyer logement_foyer__ -> (let traitement_formule_ : CalculAllocationLogementFoyer.t = - (calcul_allocation_logement_foyer - ({CalculAllocationLogementFoyerIn.type_logement_foyer_in = - ( - try (logement_foyer__.LogementFoyer.type_user) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1585; start_column=35; - end_line=1585; end_column=55; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.date_conventionnement_in = - ( - try - (logement_foyer__.LogementFoyer.date_conventionnement) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1586; start_column=37; - end_line=1586; end_column=74; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.redevance_in = ( - try (logement_foyer__.LogementFoyer.redevance) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1582; start_column=25; - end_line=1582; end_column=50; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.ressources_menage_arrondies_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1577; start_column=43; - end_line=1577; end_column=60; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1578; start_column=41; - end_line=1578; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1581; start_column=46; - end_line=1581; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.zone_in = ( - try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1579; start_column=20; - end_line=1579; end_column=24; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1580; start_column=29; - end_line=1580; end_column=42; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementFoyerIn.categorie_equivalence_loyer_d842_16_in = - ( - try - (logement_foyer__.LogementFoyer.categorie_equivalence_loyer_d842_16) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1584; start_column=13; - end_line=1584; end_column=64; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + ((log_end_call ["CalculAllocationLogementFoyer"; "direct"] + ((log_begin_call + ["CalculAllocationLogementFoyer"; "direct"] + calcul_allocation_logement_foyer) + ((log_variable_definition + ["CalculAllocationLogementFoyer"; "input"] + (embed_calcul_allocation_logement_foyer_in) + ({CalculAllocationLogementFoyerIn.type_logement_foyer_in = + (try (logement_foyer__.LogementFoyer.type_user) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1596; start_column=35; + end_line=1596; end_column=55; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.date_conventionnement_in = + ( + try + (logement_foyer__.LogementFoyer.date_conventionnement) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1597; start_column=37; + end_line=1597; end_column=74; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.redevance_in = ( + try (logement_foyer__.LogementFoyer.redevance) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1593; start_column=25; + end_line=1593; end_column=50; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.ressources_menage_arrondies_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1588; start_column=43; + end_line=1588; end_column=60; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1589; start_column=41; + end_line=1589; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1592; start_column=46; + end_line=1592; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.zone_in = ( + try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1590; start_column=20; + end_line=1590; end_column=24; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.date_courante_in = ( + try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1591; start_column=29; + end_line=1591; end_column=42; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementFoyerIn.categorie_equivalence_loyer_d842_16_in = + ( + try + (logement_foyer__.LogementFoyer.categorie_equivalence_loyer_d842_16) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1595; start_column=13; + end_line=1595; end_column=64; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAllocationLogementFoyer.aide_finale_formule); @@ -27906,198 +29102,204 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL | ModeOccupation.AccessionProprieteLocalUsageExclusifHabitation proprietaire_ -> (let traitement_formule_ : CalculAllocationLogementAccessionPropriete.t = - (calcul_allocation_logement_accession_propriete - ({CalculAllocationLogementAccessionProprieteIn.ressources_menage_arrondies_base_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1598; start_column=44; - end_line=1598; end_column=61; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1599; start_column=42; - end_line=1599; end_column=67; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1602; start_column=47; - end_line=1602; end_column=77; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.zone_in = - (try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1600; start_column=21; - end_line=1600; end_column=25; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1601; start_column=30; - end_line=1601; end_column=43; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.mensualite_principale_in = - ( - try - (proprietaire_.Proprietaire.mensualite_principale) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1603; start_column=38; - end_line=1603; end_column=72; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.situation_r822_11_13_17_in = - ( - try - (proprietaire_.Proprietaire.situation_r822_11_13_17) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1611; start_column=40; - end_line=1611; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.date_signature_pret_in = - ( - try - ((proprietaire_.Proprietaire.pret).Pret.date_signature) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1606; start_column=36; - end_line=1606; end_column=68; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.type_travaux_logement_in = - ( - try - (proprietaire_.Proprietaire.type_travaux_logement_r842_5) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1605; start_column=38; - end_line=1605; end_column=79; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.local_habite_premiere_fois_beneficiaire_in = - ( - try - (proprietaire_.Proprietaire.local_habite_premiere_fois_beneficiaire) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1608; start_column=14; - end_line=1608; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.date_entree_logement_in = - ( - try - (proprietaire_.Proprietaire.date_entree_logement) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1609; start_column=37; - end_line=1609; end_column=70; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.charges_mensuelles_pret_in = - ( - try - (proprietaire_.Proprietaire.charges_mensuelles_pret) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1604; start_column=40; - end_line=1604; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.copropriete_in = - ( - try (proprietaire_.Proprietaire.copropriete) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1610; start_column=28; - end_line=1610; end_column=52; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + ((log_end_call + ["CalculAllocationLogementAccessionPropriété"; "direct"] + ((log_begin_call + ["CalculAllocationLogementAccessionPropriété"; "direct"] + calcul_allocation_logement_accession_propriete) + ((log_variable_definition + ["CalculAllocationLogementAccessionPropriété"; "input"] + (embed_calcul_allocation_logement_accession_propriete_in) + ({CalculAllocationLogementAccessionProprieteIn.ressources_menage_arrondies_base_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1609; start_column=44; + end_line=1609; end_column=61; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1610; start_column=42; + end_line=1610; end_column=67; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1613; start_column=47; + end_line=1613; end_column=77; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.zone_in = + (try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1611; start_column=21; + end_line=1611; end_column=25; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.date_courante_in = + (try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1612; start_column=30; + end_line=1612; end_column=43; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.mensualite_principale_in = + ( + try + (proprietaire_.Proprietaire.mensualite_principale) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1614; start_column=38; + end_line=1614; end_column=72; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.situation_r822_11_13_17_in = + ( + try + (proprietaire_.Proprietaire.situation_r822_11_13_17) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1622; start_column=40; + end_line=1622; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.date_signature_pret_in = + ( + try + ((proprietaire_.Proprietaire.pret).Pret.date_signature) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1617; start_column=36; + end_line=1617; end_column=68; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.type_travaux_logement_in = + ( + try + (proprietaire_.Proprietaire.type_travaux_logement_r842_5) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1616; start_column=38; + end_line=1616; end_column=79; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.local_habite_premiere_fois_beneficiaire_in = + ( + try + (proprietaire_.Proprietaire.local_habite_premiere_fois_beneficiaire) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1619; start_column=14; + end_line=1619; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.date_entree_logement_in = + ( + try + (proprietaire_.Proprietaire.date_entree_logement) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1620; start_column=37; + end_line=1620; end_column=70; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.charges_mensuelles_pret_in = + ( + try + (proprietaire_.Proprietaire.charges_mensuelles_pret) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1615; start_column=40; + end_line=1615; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.copropriete_in = + (try (proprietaire_.Proprietaire.copropriete) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1621; start_column=28; + end_line=1621; end_column=52; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAllocationLogementAccessionPropriete.aide_finale_formule); @@ -28105,213 +29307,215 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL (traitement_formule_.CalculAllocationLogementAccessionPropriete.traitement_aide_finale)})) | ModeOccupation.SousLocataire location_ -> (let traitement_formule_ : CalculAllocationLogementLocatif.t - = - (calcul_allocation_logement_locatif - ({CalculAllocationLogementLocatifIn.loyer_principal_in = - (try (location_.Location.loyer_principal) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1550; start_column=31; - end_line=1550; end_column=55; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.ressources_menage_arrondies_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1545; start_column=43; - end_line=1545; end_column=60; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.beneficiaire_aide_adulte_ou_enfant_handicapes_in = - ( - try - (location_.Location.beneficiaire_aide_adulte_ou_enfant_handicapes) + = ((log_end_call + ["CalculAllocationLogementLocatif"; "direct"] + ((log_begin_call + ["CalculAllocationLogementLocatif"; "direct"] + calcul_allocation_logement_locatif) + ((log_variable_definition + ["CalculAllocationLogementLocatif"; "input"] + (embed_calcul_allocation_logement_locatif_in) + ({CalculAllocationLogementLocatifIn.loyer_principal_in = ( + try (location_.Location.loyer_principal) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1561; start_column=31; + end_line=1561; end_column=55; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.ressources_menage_arrondies_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1556; start_column=43; + end_line=1556; end_column=60; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.beneficiaire_aide_adulte_ou_enfant_handicapes_in = + ( + try + (location_.Location.beneficiaire_aide_adulte_ou_enfant_handicapes) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1563; start_column=15; + end_line=1563; end_column=69; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.date_courante_in = ( + try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1559; start_column=29; + end_line=1559; end_column=42; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1557; start_column=41; + end_line=1557; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1560; start_column=46; + end_line=1560; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.zone_in = ( + try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1558; start_column=20; + end_line=1558; end_column=24; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.logement_est_chambre_in = + (try (location_.Location.logement_est_chambre) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1564; start_column=36; + end_line=1564; end_column=65; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in = + ( + try + (location_.Location.agees_ou_handicap_adultes_hebergees_onereux_particuliers) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1567; start_column=15; + end_line=1567; end_column=80; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.type_aide_in = ( + try type_aide_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1568; start_column=25; + end_line=1568; end_column=34; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.colocation_in = ( + try (location_.Location.colocation) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1565; start_column=26; + end_line=1565; end_column=45; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.reduction_loyer_solidarite_in = + ( + try + (match (location_.Location.bailleur) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1552; start_column=15; - end_line=1552; end_column=69; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1548; start_column=29; - end_line=1548; end_column=42; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1546; start_column=41; - end_line=1546; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1549; start_column=46; - end_line=1549; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.zone_in = ( - try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1547; start_column=20; - end_line=1547; end_column=24; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.logement_est_chambre_in = - ( - try (location_.Location.logement_est_chambre) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1553; start_column=36; - end_line=1553; end_column=65; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.agees_ou_handicap_adultes_hebergees_onereux_particuliers_in = - ( - try - (location_.Location.agees_ou_handicap_adultes_hebergees_onereux_particuliers) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1556; start_column=15; - end_line=1556; end_column=80; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.type_aide_in = ( - try type_aide_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1557; start_column=25; - end_line=1557; end_column=34; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.colocation_in = ( - try (location_.Location.colocation) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1554; start_column=26; - end_line=1554; end_column=45; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.reduction_loyer_solidarite_in = - ( - try - (match (location_.Location.bailleur) - with - | TypeBailleur.BailleurSocial bailleur_ -> - (bailleur_.ConventionBailleurSocial.reduction_loyer_solidarite_percue) - | TypeBailleur.BailleurPriveAvecConventionnementSocial _ -> - (money_of_cents_string "0") - | TypeBailleur.BailleurPrive _ -> - (money_of_cents_string "0")) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1559; start_column=16; - end_line=1562; end_column=39; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.logement_meuble_d842_2_in = - ( - try (location_.Location.logement_meuble_d842_2) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1563; start_column=38; - end_line=1563; end_column=69; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementLocatifIn.changement_logement_d842_4_in = - ( - try - (location_.Location.changement_logement_d842_4) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1564; start_column=42; - end_line=1564; end_column=77; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + | TypeBailleur.BailleurSocial bailleur_ -> + (bailleur_.ConventionBailleurSocial.reduction_loyer_solidarite_percue) + | TypeBailleur.BailleurPriveAvecConventionnementSocial _ -> + (money_of_cents_string "0") + | TypeBailleur.BailleurPrive _ -> + (money_of_cents_string "0")) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1570; start_column=16; + end_line=1573; end_column=39; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.logement_meuble_d842_2_in = + ( + try (location_.Location.logement_meuble_d842_2) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1574; start_column=38; + end_line=1574; end_column=69; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementLocatifIn.changement_logement_d842_4_in = + ( + try (location_.Location.changement_logement_d842_4) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1575; start_column=42; + end_line=1575; end_column=77; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAllocationLogementLocatif.aide_finale_formule); @@ -28320,198 +29524,204 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL | ModeOccupation.LocationAccession proprietaire_ -> (let traitement_formule_ : CalculAllocationLogementAccessionPropriete.t = - (calcul_allocation_logement_accession_propriete - ({CalculAllocationLogementAccessionProprieteIn.ressources_menage_arrondies_base_in = - (try ressources_menage_avec_arrondi_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1625; start_column=44; - end_line=1625; end_column=61; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.nombre_personnes_a_charge_in = - (try nombre_personnes_a_charge_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1626; start_column=42; - end_line=1626; end_column=67; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.situation_familiale_calcul_apl_in = - (try situation_familiale_calcul_apl_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1629; start_column=47; - end_line=1629; end_column=77; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.zone_in = - (try zone_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1627; start_column=21; - end_line=1627; end_column=25; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.date_courante_in = - (try date_courante_ with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1628; start_column=30; - end_line=1628; end_column=43; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.mensualite_principale_in = - ( - try - (proprietaire_.Proprietaire.mensualite_principale) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1630; start_column=38; - end_line=1630; end_column=72; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.situation_r822_11_13_17_in = - ( - try - (proprietaire_.Proprietaire.situation_r822_11_13_17) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1638; start_column=40; - end_line=1638; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.date_signature_pret_in = - ( - try - ((proprietaire_.Proprietaire.pret).Pret.date_signature) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1633; start_column=36; - end_line=1633; end_column=68; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.type_travaux_logement_in = - ( - try - (proprietaire_.Proprietaire.type_travaux_logement_r842_5) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1632; start_column=38; - end_line=1632; end_column=79; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.local_habite_premiere_fois_beneficiaire_in = - ( - try - (proprietaire_.Proprietaire.local_habite_premiere_fois_beneficiaire) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1635; start_column=14; - end_line=1635; end_column=66; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.date_entree_logement_in = - ( - try - (proprietaire_.Proprietaire.date_entree_logement) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1636; start_column=37; - end_line=1636; end_column=70; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.charges_mensuelles_pret_in = - ( - try - (proprietaire_.Proprietaire.charges_mensuelles_pret) - with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1631; start_column=40; - end_line=1631; end_column=76; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]}))); - CalculAllocationLogementAccessionProprieteIn.copropriete_in = - ( - try (proprietaire_.Proprietaire.copropriete) with - EmptyError -> (raise (NoValueProvided - {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1637; start_column=28; - end_line=1637; end_column=52; - law_headings=["Article D823-9"; - "Section 1 : Calcul, liquidation et versement des aides"; - "Chapitre III : Modalités de liquidation et de versement"; - "Titre II : Dispositions communes aux aides personnelles au logement"; - "Livre VIII : Aides personnelles au logement"; - "Partie réglementaire"; - "Code de la construction et de l'habitation"]})))})) + ((log_end_call + ["CalculAllocationLogementAccessionPropriété"; "direct"] + ((log_begin_call + ["CalculAllocationLogementAccessionPropriété"; "direct"] + calcul_allocation_logement_accession_propriete) + ((log_variable_definition + ["CalculAllocationLogementAccessionPropriété"; "input"] + (embed_calcul_allocation_logement_accession_propriete_in) + ({CalculAllocationLogementAccessionProprieteIn.ressources_menage_arrondies_base_in = + (try ressources_menage_avec_arrondi_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1636; start_column=44; + end_line=1636; end_column=61; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.nombre_personnes_a_charge_in = + (try nombre_personnes_a_charge_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1637; start_column=42; + end_line=1637; end_column=67; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.situation_familiale_calcul_apl_in = + (try situation_familiale_calcul_apl_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1640; start_column=47; + end_line=1640; end_column=77; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.zone_in = + (try zone_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1638; start_column=21; + end_line=1638; end_column=25; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.date_courante_in = + (try date_courante_ with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1639; start_column=30; + end_line=1639; end_column=43; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.mensualite_principale_in = + ( + try + (proprietaire_.Proprietaire.mensualite_principale) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1641; start_column=38; + end_line=1641; end_column=72; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.situation_r822_11_13_17_in = + ( + try + (proprietaire_.Proprietaire.situation_r822_11_13_17) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1649; start_column=40; + end_line=1649; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.date_signature_pret_in = + ( + try + ((proprietaire_.Proprietaire.pret).Pret.date_signature) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1644; start_column=36; + end_line=1644; end_column=68; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.type_travaux_logement_in = + ( + try + (proprietaire_.Proprietaire.type_travaux_logement_r842_5) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1643; start_column=38; + end_line=1643; end_column=79; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.local_habite_premiere_fois_beneficiaire_in = + ( + try + (proprietaire_.Proprietaire.local_habite_premiere_fois_beneficiaire) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1646; start_column=14; + end_line=1646; end_column=66; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.date_entree_logement_in = + ( + try + (proprietaire_.Proprietaire.date_entree_logement) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1647; start_column=37; + end_line=1647; end_column=70; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.charges_mensuelles_pret_in = + ( + try + (proprietaire_.Proprietaire.charges_mensuelles_pret) + with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1642; start_column=40; + end_line=1642; end_column=76; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]}))); + CalculAllocationLogementAccessionProprieteIn.copropriete_in = + (try (proprietaire_.Proprietaire.copropriete) with + EmptyError -> (raise (NoValueProvided + {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; + start_line=1648; start_column=28; + end_line=1648; end_column=52; + law_headings=["Article D823-9"; + "Section 1 : Calcul, liquidation et versement des aides"; + "Chapitre III : Modalités de liquidation et de versement"; + "Titre II : Dispositions communes aux aides personnelles au logement"; + "Livre VIII : Aides personnelles au logement"; + "Partie réglementaire"; + "Code de la construction et de l'habitation"]})))})))))) in ({TraitementFormuleAideFinale.aide_finale_formule = (traitement_formule_.CalculAllocationLogementAccessionPropriete.aide_finale_formule); @@ -28537,8 +29747,8 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1396; start_column=14; - end_line=1396; end_column=36; + start_line=1407; start_column=14; + end_line=1407; end_column=36; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement"; @@ -28575,7 +29785,7 @@ let calcul_allocation_logement (calcul_allocation_logement_in: CalculAllocationL "Prologue : aides au logement"]} ([||]) (fun (_: unit) -> (log_decision_taken {filename = "examples/aides_logement/code_construction_reglementaire.catala_fr"; - start_line=1394; start_column=14; end_line=1394; end_column=33; + start_line=1405; start_column=14; end_line=1405; end_column=33; law_headings=["Article D823-9"; "Section 1 : Calcul, liquidation et versement des aides"; "Chapitre III : Modalités de liquidation et de versement";