/*
** Automatically generated from `loop_inv.m'
** by the Mercury compiler,
** version rotd-2026-07-10
** configured for x86_64-pc-linux-gnu.
** Do not edit.
**
** The autoconfigured grade settings governing
** the generation of this C file were
**
** TAG_BITS=2
** UNBOXED_FLOAT=no
** UNBOXED_INT64S=no
** PREGENERATED_DIST=yes
** HIGHLEVEL_CODE=yes
**
** END_OF_C_GRADE_INFO
*/


// :- module transform_hlds.loop_inv.
// :- implementation.

/*
INIT mercury__transform_hlds__loop_inv__init
ENDINIT
*/

#include "transform_hlds.loop_inv.mih"


#include "analysis.mih"
#include "array.mih"
#include "assoc_list.mih"
#include "bimap.mih"
#include "bitmap.mih"
#include "bool.mih"
#include "builtin.mih"
#include "char.mih"
#include "check_hlds.mih"
#include "construct.mih"
#include "cord.mih"
#include "counter.mih"
#include "deconstruct.mih"
#include "digraph.mih"
#include "enum.mih"
#include "hlds.mih"
#include "io.mih"
#include "libs.mih"
#include "list.mih"
#include "map.mih"
#include "maybe.mih"
#include "mdbcomp.mih"
#include "mode_robdd.mih"
#include "multi_map.mih"
#include "one_or_more.mih"
#include "one_or_more_map.mih"
#include "pair.mih"
#include "parse_tree.mih"
#include "pretty_printer.mih"
#include "private_builtin.mih"
#include "queue.mih"
#include "recompilation.mih"
#include "require.mih"
#include "robdd.mih"
#include "set.mih"
#include "set_ordlist.mih"
#include "set_tree234.mih"
#include "sparse_bitset.mih"
#include "stack.mih"
#include "stream.mih"
#include "string.mih"
#include "term.mih"
#include "term_context.mih"
#include "time.mih"
#include "transform_hlds.mih"
#include "tree234.mih"
#include "type_desc.mih"
#include "unit.mih"
#include "univ.mih"
#include "varset.mih"
#include "analysis.framework.mih"
#include "analysis.operations.mih"
#include "check_hlds.mode_constraint_robdd.mih"
#include "check_hlds.mode_errors.mih"
#include "check_hlds.mode_info.mih"
#include "check_hlds.proc_requests.mih"
#include "check_hlds.recompute_instmap_deltas.mih"
#include "hlds.code_model.mih"
#include "hlds.const_struct.mih"
#include "hlds.goal_mode.mih"
#include "hlds.goal_vars.mih"
#include "hlds.hlds_class.mih"
#include "hlds.hlds_clauses.mih"
#include "hlds.hlds_cons.mih"
#include "hlds.hlds_data.mih"
#include "hlds.hlds_dependency_graph.mih"
#include "hlds.hlds_goal.mih"
#include "hlds.hlds_inst_mode.mih"
#include "hlds.hlds_llds.mih"
#include "hlds.hlds_markers.mih"
#include "hlds.hlds_module.mih"
#include "hlds.hlds_pred.mih"
#include "hlds.hlds_proc_util.mih"
#include "hlds.hlds_promise.mih"
#include "hlds.hlds_rtti.mih"
#include "hlds.inst_graph.mih"
#include "hlds.inst_test.mih"
#include "hlds.instmap.mih"
#include "hlds.make_goal.mih"
#include "hlds.mode_test.mih"
#include "hlds.mode_util.mih"
#include "hlds.pred_name.mih"
#include "hlds.pred_table.mih"
#include "hlds.quantification.mih"
#include "hlds.special_pred.mih"
#include "hlds.status.mih"
#include "libs.dependency_graph.mih"
#include "libs.file_util.mih"
#include "libs.globals.mih"
#include "libs.polyhedron.mih"
#include "mdbcomp.goal_path.mih"
#include "mdbcomp.prim_data.mih"
#include "mdbcomp.program_representation.mih"
#include "mdbcomp.sym_name.mih"
#include "mode_robdd.tfeirn.mih"
#include "parse_tree.d_file_deps.mih"
#include "parse_tree.error_spec.mih"
#include "parse_tree.module_qual.mih"
#include "parse_tree.prog_data.mih"
#include "parse_tree.prog_data_event.mih"
#include "parse_tree.prog_data_foreign.mih"
#include "parse_tree.prog_data_pragma.mih"
#include "parse_tree.prog_data_used_modules.mih"
#include "parse_tree.prog_foreign.mih"
#include "parse_tree.prog_item.mih"
#include "parse_tree.prog_parse_tree.mih"
#include "parse_tree.prog_rename.mih"
#include "parse_tree.prog_type.mih"
#include "parse_tree.set_of_var.mih"
#include "parse_tree.var_db.mih"
#include "parse_tree.var_table.mih"
#include "parse_tree.vartypes.mih"
#include "recompilation.record_uses.mih"
#include "transform_hlds.term_constr_errors.mih"
#include "transform_hlds.term_constr_main_types.mih"
#include "transform_hlds.term_errors.mih"
#include "transform_hlds.term_util.mih"
#include "parse_tree.module_qual.mq_info.mih"



struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s {
  MR_Word transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8;
  MR_bool transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded;
  MR_Word transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Modes_72;
  jmp_buf transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__commit_0;
  MR_Word transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__InitialInst_81;
  MR_Word transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__FinalInst_82;
  MR_Word transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Mode_83;
  MR_Box transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__conv0_Mode_83;
};

struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s {
  MR_Word transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUVs_11;
  MR_Word transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12;
  MR_bool transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded;
  jmp_buf transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__commit_0;
  MR_Word transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__TypeCtorInfo_9_22;
  MR_Word transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__NonLocals_19;
  MR_Word transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUV_20;
  MR_Box transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__conv0_UUV_20;
};

struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s {
  MR_Word transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__InvVars_6;
  MR_bool transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded;
  MR_Word transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7;
  jmp_buf transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__commit_0;
  MR_Word transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__TypeInfo_9_9;
  MR_Word transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__V_8;
  MR_Box transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__conv8_V_8;
};

struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s {
  MR_Word transform_hlds__loop_inv__common_goal_2_p_0_env_0__Goalss_3;
  MR_Word transform_hlds__loop_inv__common_goal_2_p_0_env_0__Goal_4;
  MR_bool transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded;
  jmp_buf transform_hlds__loop_inv__common_goal_2_p_0_env_0__commit_0;
  MR_Word transform_hlds__loop_inv__common_goal_2_p_0_env_0__Gs_5;
  MR_Box transform_hlds__loop_inv__common_goal_2_p_0_env_0__conv0_Gs_5;
  jmp_buf transform_hlds__loop_inv__common_goal_2_p_0_env_0__commit_1;
  MR_Word transform_hlds__loop_inv__common_goal_2_p_0_env_0__G_6;
  MR_Word transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9;
  MR_Word transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11;
  MR_Box transform_hlds__loop_inv__common_goal_2_p_0_env_0__conv1_G_6;
};


static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0;

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0;

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0;

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0;

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0;

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__maybe__pti_maybe_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0;

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0;

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0;

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_hlds__hlds_goal__type_ctor_info_hlds_goal_0;

static const MR_PseudoTypeInfo transform_hlds__loop_inv__transform_hlds__loop_inv__field_types_gen_aux_proc_info_0_0[4];

static const MR_ConstString transform_hlds__loop_inv__transform_hlds__loop_inv__field_names_gen_aux_proc_info_0_0[4];

static const MR_DuFunctorDesc transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_gen_aux_proc_info_0_0;

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_stag_ordered_gen_aux_proc_info_0_0[1];

static const MR_DuPtagLayout transform_hlds__loop_inv__transform_hlds__loop_inv__du_ptag_ordered_gen_aux_proc_info_0[1];

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_name_ordered_gen_aux_proc_info_0[1];

static const MR_Integer transform_hlds__loop_inv__transform_hlds__loop_inv__functor_number_map_gen_aux_proc_info_0[1];

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__cord__ti_cord_1hlds__hlds_goal__type_ctor_info_hlds_goal_0;

static const MR_FA_TypeInfo_Struct2 transform_hlds__loop_inv__pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0;

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__list__ti_list_1pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0;

static const MR_PseudoTypeInfo transform_hlds__loop_inv__transform_hlds__loop_inv__field_types_igc_info_0_0[4];

static const MR_ConstString transform_hlds__loop_inv__transform_hlds__loop_inv__field_names_igc_info_0_0[4];

static const MR_DuFunctorDesc transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_igc_info_0_0;

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_stag_ordered_igc_info_0_0[1];

static const MR_DuPtagLayout transform_hlds__loop_inv__transform_hlds__loop_inv__du_ptag_ordered_igc_info_0[1];

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_name_ordered_igc_info_0[1];

static const MR_Integer transform_hlds__loop_inv__transform_hlds__loop_inv__functor_number_map_igc_info_0[1];

static MR_Word MR_CALL 
transform_hlds__loop_inv__IntroducedFrom__func__case_goals__1142__1_1_f_0(
  MR_Word LambdaHeadVar__1_8);

static MR_Word MR_CALL 
transform_hlds__loop_inv__IntroducedFrom__func__compute_initial_aux_instmap__739__1_2_f_0(
  MR_Word LambdaHeadVar__1_12,
  MR_Word LambdaHeadVar__2_13);

static MR_bool MR_CALL 
transform_hlds__loop_inv__IntroducedFrom__pred__inv_args__506__1_2_p_0(
  MR_Word HeadVar__1_27,
  MR_Word * HeadVar__2_28);

static void MR_CALL 
transform_hlds__loop_inv____Compare____rec_call_0_0(
  MR_Word * HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word HeadVar__3_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____rec_call_0_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2);

static void MR_CALL 
transform_hlds__loop_inv____Compare____igc_info_0_0(
  MR_Word * HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word HeadVar__3_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____igc_info_0_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2);

static void MR_CALL 
transform_hlds__loop_inv____Compare____gen_aux_proc_info_0_0(
  MR_Word * HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word HeadVar__3_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____gen_aux_proc_info_0_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2);

static MR_bool MR_CALL 
transform_hlds__loop_inv__is_output_arg_5_p_0(
  MR_Word ModuleInfo_6,
  MR_Word VarTable_7,
  MR_Word Var_8,
  MR_Word Mode_9,
  MR_Word * Var_5);

static MR_bool MR_CALL 
transform_hlds__loop_inv__is_input_arg_4_p_0(
  MR_Word ModuleInfo_5,
  MR_Word Var_6,
  MR_Word Mode_7,
  MR_Word * Var_4);

static MR_bool MR_CALL 
transform_hlds__loop_inv__uniquely_used_args_4_p_0(
  MR_Word ModuleInfo_5,
  MR_Word X_6,
  MR_Word M_7,
  MR_Word * X_4);

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_case_4_p_0(
  MR_Word PPId_5,
  MR_Word Replacement_6,
  MR_Word Case_7,
  MR_Word * AuxCase_8);

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_case_3_p_0(
  MR_Word Info_4,
  MR_Word Case_5,
  MR_Word * AuxCase_6);

static void MR_CALL 
transform_hlds__loop_inv__add_output_4_p_0(
  MR_Word UniquelyUsedVars_5,
  MR_Word X_6,
  MR_Word STATE_VARIABLE_InvVars_0_8,
  MR_Word * STATE_VARIABLE_InvVars_9);

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_1(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_3(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_2(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_4(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0(
  MR_Word ModuleInfo_8,
  MR_Word VarTable_9,
  MR_Word Goal_10,
  MR_Word STATE_VARIABLE_DHGs_0_13,
  MR_Word * STATE_VARIABLE_DHGs_14,
  MR_Word STATE_VARIABLE_DHVs_0_15,
  MR_Word * STATE_VARIABLE_DHVs_16);

static MR_Box MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_Box MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static void MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static void MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0(
  MR_Word ModuleInfo_7,
  MR_Word VarTable_8,
  MR_Word UUVs_9,
  MR_Word Goal_10,
  MR_Word STATE_VARIABLE_InvVars_0_12,
  MR_Word * STATE_VARIABLE_InvVars_13);

static MR_Box MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_11(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_10(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_9(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_8(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_Box MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_1(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_3(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_2(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_4(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0(
  MR_Word ModuleInfo_9,
  MR_Word VarTable_10,
  MR_Word UUVs_11,
  MR_Word Goal_12,
  MR_Word IGs0_13,
  MR_Word * IGs_14,
  MR_Word IVs0_15,
  MR_Word * IVs_16);

static MR_Box MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_8(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_Box MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_Box MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_9(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_11(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_10(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_12(
  void * env_ptr_arg);

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0(
  MR_Word ModuleInfo_4,
  MR_Word Goal_5,
  MR_Word InvVars_6);

static MR_Word MR_CALL 
transform_hlds__loop_inv__refine_candidate_inv_args_2_2_f_0(
  MR_Word HeadVar__1_1,
  MR_Word Y_2);

static MR_Box MR_CALL 
transform_hlds__loop_inv__refine_candidate_inv_args_2_f_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static MR_Word MR_CALL 
transform_hlds__loop_inv__refine_candidate_inv_args_2_f_0(
  MR_Word HeadVar__1_1,
  MR_Word MaybeInvArgs_6);

static MR_Word MR_CALL 
transform_hlds__loop_inv__arg_to_maybe_inv_arg_3_f_0(
  MR_Word ModuleInfo_5,
  MR_Word Arg_6,
  MR_Word Mode_7);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_1(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_3(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_4(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_6(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_5(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_7(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_2(
  void * env_ptr_arg);

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_8(
  void * env_ptr_arg);

static MR_bool MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0(
  MR_Word Goalss_3,
  MR_Word Goal_4);

static MR_Box MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3,
  MR_Box wrapper_arg_4,
  MR_Box * wrapper_arg_5);

static void MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3,
  MR_Box wrapper_arg_4,
  MR_Box * wrapper_arg_5);

static MR_bool MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static MR_Box MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static MR_Box MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static MR_bool MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_9(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_8(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1);

static MR_bool MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3);

static MR_Word MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0(
  MR_Word ModuleInfo_4,
  MR_Word Goal_5);

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_8_p_0(
  MR_Word PredProcId_9,
  MR_Word PredInfo0_10,
  MR_Word ProcInfo0_11,
  MR_Word * ProcInfo_12,
  MR_Word Replacement_13,
  MR_Word Body0_14,
  MR_Word STATE_VARIABLE_ModuleInfo_0_24,
  MR_Word * STATE_VARIABLE_ModuleInfo_25);

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(
  MR_Word PPId_5,
  MR_Word Replacement_6,
  MR_Word Goal_7,
  MR_Word * AuxGoal_8);

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(
  MR_Word Info_4,
  MR_Word Goal_5,
  MR_Word * AuxGoal_6);

static void MR_CALL 
transform_hlds__loop_inv__f_85_110_117_115_101_100_65_114_103_115_95_95_112_114_101_100_95_95_114_101_112_108_97_99_101_95_105_110_105_116_105_97_108_95_97_114_103_115_95_95_91_49_93_95_48_3_p_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word * HeadVar__3_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv__invariant_goal_2_p_0(
  MR_Word HeadVar__1_1,
  MR_Word Goal_5);

static void MR_CALL 
transform_hlds__loop_inv__create_loop_inv_aux_pred_10_p_0(
  MR_Word PredProcId_11,
  MR_Word HeadVars_12,
  MR_Word ComputedInvArgs_13,
  MR_Word InitialAuxInstMap_14,
  MR_Word * AuxPredProcId_15,
  MR_Word * ReplacementGoal_16,
  MR_Word * AuxPredInfo_17,
  MR_Word * AuxProcInfo_18,
  MR_Word STATE_VARIABLE_ModuleInfo_0_52,
  MR_Word * STATE_VARIABLE_ModuleInfo_53);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(
  MR_Word PPId_5,
  MR_Word Goal_6,
  MR_Word STATE_VARIABLE_IGCs_0_47,
  MR_Word * STATE_VARIABLE_IGCs_48);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_switch_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_disj_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_parallel_conj_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_plain_conj_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_keeping_path_candidates_4_p_0(
  MR_Word PPId_5,
  MR_Word Goal_6,
  MR_Word STATE_VARIABLE_IGCs_0_9,
  MR_Word * STATE_VARIABLE_IGCs_10);

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_handle_primitive_goal_3_p_0(
  MR_Word Goal_4,
  MR_Word STATE_VARIABLE_IGCs_0_14,
  MR_Word * STATE_VARIABLE_IGCs_15);

static MR_bool MR_CALL 
transform_hlds__loop_inv__all_instmap_deltas_are_ground_3_p_0(
  MR_Word ModuleInfo_1,
  MR_Word VarTable_2,
  MR_Word HeadVar__3_3);

static void MR_CALL 
transform_hlds__loop_inv__add_recursive_call_3_p_0(
  MR_Word Goal_4,
  MR_Word STATE_VARIABLE_IGCs_0_7,
  MR_Word * STATE_VARIABLE_IGCs_8);

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____gen_aux_proc_info_0_0_10001(
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv____Compare____gen_aux_proc_info_0_0_10001(
  MR_Box * wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____igc_info_0_0_10001(
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv____Compare____igc_info_0_0_10001(
  MR_Box * wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box wrapper_arg_3);

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____rec_call_0_0_10001(
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2);

static void MR_CALL 
transform_hlds__loop_inv____Compare____rec_call_0_0_10001(
  MR_Box * wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box wrapper_arg_3);


static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_1[7][2];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_2[15][3];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_3[6][6];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_4[5][7];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_5[5][5];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_6[1][11];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_7[1][10];

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_8[1][8];




static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_1[7][2] = {
  /* row   0 */
  {
    ((MR_Box) (&mercury__term__term__type_ctor_info_var_1)),
    ((MR_Box) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   1 */
  {
    ((MR_Box) (&mercury__list__list__type_ctor_info_list_1)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0))
  },
  /* row   2 */
  {
    ((MR_Box) (&mercury__maybe__maybe__type_ctor_info_maybe_1)),
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_1[0]))
  },
  /* row   3 */
  {
    ((MR_Box) (&mercury__list__list__type_ctor_info_list_1)),
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_1[2]))
  },
  /* row   4 */
  {
    ((MR_Box) (&mercury__list__list__type_ctor_info_list_1)),
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_1[0]))
  },
  /* row   5 */
  {
    ((MR_Box) (&mercury__cord__cord__type_ctor_info_cord_1)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0))
  },
  /* row   6 */
  {
    ((MR_Box) (&mercury__list__list__type_ctor_info_list_1)),
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_2[0]))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_2[15][3] = {
  /* row   0 */
  {
    ((MR_Box) (&mercury__pair__pair__type_ctor_info_pair_2)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_1[1]))
  },
  /* row   1 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[0])),
    ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_2)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   2 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[0])),
    ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_3)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   3 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[1])),
    ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_9)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   4 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[3])),
    ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_3)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   5 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[3])),
    ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_4)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   6 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[4])),
    ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_7)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   7 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[5])),
    ((MR_Box) (transform_hlds__loop_inv__refine_candidate_inv_args_2_f_0_1)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   8 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[0])),
    ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_2)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row   9 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[4])),
    ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_6)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row  10 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[4])),
    ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_8)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row  11 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[0])),
    ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_7)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row  12 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[4])),
    ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_11)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row  13 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[0])),
    ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_3)),
    ((MR_Box) ((MR_Integer) 0))
  },
  /* row  14 */
  {
    ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[4])),
    ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_7)),
    ((MR_Box) ((MR_Integer) 0))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_3[6][6] = {
  /* row   0 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 3)),
    ((MR_Box) (&transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_gen_aux_proc_info_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0))
  },
  /* row   1 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 3)),
    ((MR_Box) (&transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_gen_aux_proc_info_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0))
  },
  /* row   2 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 3)),
    ((MR_Box) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   3 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 3)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   4 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 3)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&hlds__instmap__hlds__instmap__type_ctor_info_instmap_0)),
    ((MR_Box) (&hlds__instmap__hlds__instmap__type_ctor_info_instmap_0))
  },
  /* row   5 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 3)),
    ((MR_Box) (&transform_hlds__loop_inv__maybe__pti_maybe_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__maybe__pti_maybe_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_4[5][7] = {
  /* row   0 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 4)),
    ((MR_Box) (&hlds__hlds_pred__hlds__hlds_pred__type_ctor_info_pred_proc_id_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0))
  },
  /* row   1 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 4)),
    ((MR_Box) (&hlds__hlds_pred__hlds__hlds_pred__type_ctor_info_pred_proc_id_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0))
  },
  /* row   2 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 4)),
    ((MR_Box) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   3 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 4)),
    ((MR_Box) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0)),
    ((MR_Box) (&transform_hlds__loop_inv__maybe__pti_maybe_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   4 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 4)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_5[5][5] = {
  /* row   0 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 2)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_foreign_arg_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   1 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 2)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0))
  },
  /* row   2 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 2)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0))
  },
  /* row   3 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 2)),
    ((MR_Box) (&transform_hlds__loop_inv__maybe__pti_maybe_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
  /* row   4 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 2)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_unify_mode_0)),
    ((MR_Box) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_6[1][11] = {
  /* row   0 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 8)),
    ((MR_Box) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0)),
    ((MR_Box) (&parse_tree__var_table__parse_tree__var_table__type_ctor_info_var_table_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_7[1][10] = {
  /* row   0 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 7)),
    ((MR_Box) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0)),
    ((MR_Box) (&parse_tree__var_table__parse_tree__var_table__type_ctor_info_var_table_0)),
    ((MR_Box) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_hlds__hlds_goal__type_ctor_info_hlds_goal_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
};

static /* final */ const MR_Box transform_hlds__loop_inv_scalar_common_8[1][8] = {
  /* row   0 */
  {
    NULL,
    ((MR_Box) (NULL)),
    ((MR_Box) ((MR_Integer) 5)),
    ((MR_Box) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0)),
    ((MR_Box) (&parse_tree__var_table__parse_tree__var_table__type_ctor_info_var_table_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0)),
    ((MR_Box) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0)),
    ((MR_Box) (&transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0))
  },
};



#include "array.mh"
#include "bitmap.mh"
#include "io.mh"
#include "string.mh"
#include "time.mh"
#include "io.stream_ops.mh"


static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__term__pti_var_1__plain_parse_tree__prog_data__type_ctor_info_prog_var_type_0 = {
  &mercury__term__term__type_ctor_info_var_1,
  { (MR_PseudoTypeInfo) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_prog_var_type_0) }
};

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0 = {
  &mercury__term__term__type_ctor_info_var_1,
  { (MR_TypeInfo) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_prog_var_type_0) }
};

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0 = {
  &mercury__list__list__type_ctor_info_list_1,
  { (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0) }
};

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0 = {
  &mercury__list__list__type_ctor_info_list_1,
  { (MR_TypeInfo) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0) }
};

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0 = {
  &mercury__list__list__type_ctor_info_list_1,
  { (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0) }
};

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__maybe__pti_maybe_1__plain_term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0 = {
  &mercury__maybe__maybe__type_ctor_info_maybe_1,
  { (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0) }
};

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0 = {
  &mercury__maybe__maybe__type_ctor_info_maybe_1,
  { (MR_TypeInfo) (&transform_hlds__loop_inv__term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0) }
};

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0 = {
  &mercury__list__list__type_ctor_info_list_1,
  { (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__maybe__ti_maybe_1term__ti_var_1parse_tree__prog_data__type_ctor_info_prog_var_type_0) }
};

static const MR_FA_PseudoTypeInfo_Struct1 transform_hlds__loop_inv__list__pti_list_1__plain_hlds__hlds_goal__type_ctor_info_hlds_goal_0 = {
  &mercury__list__list__type_ctor_info_list_1,
  { (MR_PseudoTypeInfo) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0) }
};

static const MR_PseudoTypeInfo transform_hlds__loop_inv__transform_hlds__loop_inv__field_types_gen_aux_proc_info_0_0[4] = {
  (MR_PseudoTypeInfo) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0),
  (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0),
  (MR_PseudoTypeInfo) (&hlds__hlds_pred__hlds__hlds_pred__type_ctor_info_pred_proc_id_0),
  (MR_PseudoTypeInfo) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0)
};

static const MR_ConstString transform_hlds__loop_inv__transform_hlds__loop_inv__field_names_gen_aux_proc_info_0_0[4] = {
  (MR_String) "gapi_module_info",
  (MR_String) "gapi_inv_goals",
  (MR_String) "gapi_pred_proc_id",
  (MR_String) "gapi_replament_goal"
};

static const MR_DuFunctorDesc transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_gen_aux_proc_info_0_0 = {
  (MR_String) "gen_aux_proc_info",
  INT16_C(4),
  UINT16_C(0),
  MR_SECTAG_NONE,
  UINT8_C(0),
  (MR_Integer) -1,
  INT32_C(0),
  transform_hlds__loop_inv__transform_hlds__loop_inv__field_types_gen_aux_proc_info_0_0,
  transform_hlds__loop_inv__transform_hlds__loop_inv__field_names_gen_aux_proc_info_0_0,
  NULL,
  NULL,
  MR_FUNCTOR_SUBTYPE_NONE,
  UINT8_C(0)
};

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_stag_ordered_gen_aux_proc_info_0_0[1] = { &transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_gen_aux_proc_info_0_0 };

static const MR_DuPtagLayout transform_hlds__loop_inv__transform_hlds__loop_inv__du_ptag_ordered_gen_aux_proc_info_0[1] = {
  {
    UINT32_C(1),
    MR_SECTAG_NONE,
    transform_hlds__loop_inv__transform_hlds__loop_inv__du_stag_ordered_gen_aux_proc_info_0_0,
    INT8_C(-1),
    UINT8_C(0),
    UINT8_C(1)
  }
};

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_name_ordered_gen_aux_proc_info_0[1] = { &transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_gen_aux_proc_info_0_0 };

static const MR_Integer transform_hlds__loop_inv__transform_hlds__loop_inv__functor_number_map_gen_aux_proc_info_0[1] = { (MR_Integer) 0 };

const MR_TypeCtorInfo_Struct transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_gen_aux_proc_info_0 = {
  (MR_Integer) 0,
  UINT8_C(18),
  INT8_C(1),
  MR_TYPECTOR_REP_DU,
  ((MR_Box) (transform_hlds__loop_inv____Unify____gen_aux_proc_info_0_0_10001)),
  ((MR_Box) (transform_hlds__loop_inv____Compare____gen_aux_proc_info_0_0_10001)),
  (MR_String) "transform_hlds.loop_inv",
  (MR_String) "gen_aux_proc_info",
  { transform_hlds__loop_inv__transform_hlds__loop_inv__du_name_ordered_gen_aux_proc_info_0 },
  { transform_hlds__loop_inv__transform_hlds__loop_inv__du_ptag_ordered_gen_aux_proc_info_0 },
  (MR_Integer) 1,
  UINT16_C(12),
  transform_hlds__loop_inv__transform_hlds__loop_inv__functor_number_map_gen_aux_proc_info_0,

};

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__cord__ti_cord_1hlds__hlds_goal__type_ctor_info_hlds_goal_0 = {
  &mercury__cord__cord__type_ctor_info_cord_1,
  { (MR_TypeInfo) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0) }
};

static const MR_FA_TypeInfo_Struct2 transform_hlds__loop_inv__pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0 = {
  &mercury__pair__pair__type_ctor_info_pair_2,
  {
    (MR_TypeInfo) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0),
    (MR_TypeInfo) (&transform_hlds__loop_inv__list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0)
  }
};

static const MR_FA_TypeInfo_Struct1 transform_hlds__loop_inv__list__ti_list_1pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0 = {
  &mercury__list__list__type_ctor_info_list_1,
  { (MR_TypeInfo) (&transform_hlds__loop_inv__pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0) }
};

static const MR_PseudoTypeInfo transform_hlds__loop_inv__transform_hlds__loop_inv__field_types_igc_info_0_0[4] = {
  (MR_PseudoTypeInfo) (&hlds__hlds_module__hlds__hlds_module__type_ctor_info_module_info_0),
  (MR_PseudoTypeInfo) (&parse_tree__var_table__parse_tree__var_table__type_ctor_info_var_table_0),
  (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__cord__ti_cord_1hlds__hlds_goal__type_ctor_info_hlds_goal_0),
  (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__list__ti_list_1pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0)
};

static const MR_ConstString transform_hlds__loop_inv__transform_hlds__loop_inv__field_names_igc_info_0_0[4] = {
  (MR_String) "igc_module_info",
  (MR_String) "igc_var_table",
  (MR_String) "igc_path_candidates",
  (MR_String) "igc_rec_calls"
};

static const MR_DuFunctorDesc transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_igc_info_0_0 = {
  (MR_String) "igc_info",
  INT16_C(4),
  UINT16_C(0),
  MR_SECTAG_NONE,
  UINT8_C(0),
  (MR_Integer) -1,
  INT32_C(0),
  transform_hlds__loop_inv__transform_hlds__loop_inv__field_types_igc_info_0_0,
  transform_hlds__loop_inv__transform_hlds__loop_inv__field_names_igc_info_0_0,
  NULL,
  NULL,
  MR_FUNCTOR_SUBTYPE_NONE,
  UINT8_C(0)
};

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_stag_ordered_igc_info_0_0[1] = { &transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_igc_info_0_0 };

static const MR_DuPtagLayout transform_hlds__loop_inv__transform_hlds__loop_inv__du_ptag_ordered_igc_info_0[1] = {
  {
    UINT32_C(1),
    MR_SECTAG_NONE,
    transform_hlds__loop_inv__transform_hlds__loop_inv__du_stag_ordered_igc_info_0_0,
    INT8_C(-1),
    UINT8_C(0),
    UINT8_C(1)
  }
};

static const MR_DuFunctorDescPtr transform_hlds__loop_inv__transform_hlds__loop_inv__du_name_ordered_igc_info_0[1] = { &transform_hlds__loop_inv__transform_hlds__loop_inv__du_functor_desc_igc_info_0_0 };

static const MR_Integer transform_hlds__loop_inv__transform_hlds__loop_inv__functor_number_map_igc_info_0[1] = { (MR_Integer) 0 };

const MR_TypeCtorInfo_Struct transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_igc_info_0 = {
  (MR_Integer) 0,
  UINT8_C(18),
  INT8_C(1),
  MR_TYPECTOR_REP_DU,
  ((MR_Box) (transform_hlds__loop_inv____Unify____igc_info_0_0_10001)),
  ((MR_Box) (transform_hlds__loop_inv____Compare____igc_info_0_0_10001)),
  (MR_String) "transform_hlds.loop_inv",
  (MR_String) "igc_info",
  { transform_hlds__loop_inv__transform_hlds__loop_inv__du_name_ordered_igc_info_0 },
  { transform_hlds__loop_inv__transform_hlds__loop_inv__du_ptag_ordered_igc_info_0 },
  (MR_Integer) 1,
  UINT16_C(12),
  transform_hlds__loop_inv__transform_hlds__loop_inv__functor_number_map_igc_info_0,

};

const MR_TypeCtorInfo_Struct transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_rec_call_0 = {
  (MR_Integer) 0,
  UINT8_C(18),
  INT8_C(-1),
  MR_TYPECTOR_REP_EQUIV_GROUND,
  ((MR_Box) (transform_hlds__loop_inv____Unify____rec_call_0_0_10001)),
  ((MR_Box) (transform_hlds__loop_inv____Compare____rec_call_0_0_10001)),
  (MR_String) "transform_hlds.loop_inv",
  (MR_String) "rec_call",
  { NULL },
  { (MR_PseudoTypeInfo) (&transform_hlds__loop_inv__pair__ti_pair_2hlds__hlds_goal__type_ctor_info_hlds_goal_0list__ti_list_1hlds__hlds_goal__type_ctor_info_hlds_goal_0) },
  (MR_Integer) -1,
  UINT16_C(0),
  NULL,

};

static MR_Word MR_CALL 
transform_hlds__loop_inv__IntroducedFrom__func__case_goals__1142__1_1_f_0(
  MR_Word LambdaHeadVar__1_8)
{
  MR_Word LambdaHeadVar__2_9 = ((MR_Word) ((MR_hl_field(0, LambdaHeadVar__1_8, 2))));

  return LambdaHeadVar__2_9;
}

static MR_Word MR_CALL 
transform_hlds__loop_inv__IntroducedFrom__func__compute_initial_aux_instmap__739__1_2_f_0(
  MR_Word LambdaHeadVar__1_12,
  MR_Word LambdaHeadVar__2_13)
{
  MR_Word LambdaHeadVar__3_14;
  MR_Word IMD_11;
  MR_Word GoalInfo_17 = ((MR_Word) ((MR_hl_field(0, LambdaHeadVar__1_12, 1))));

  IMD_11 = hlds__hlds_goal__goal_info_get_instmap_delta_1_f_0(GoalInfo_17);
  hlds__instmap__apply_instmap_delta_3_p_0(IMD_11, LambdaHeadVar__2_13, &LambdaHeadVar__3_14);
  return LambdaHeadVar__3_14;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__IntroducedFrom__pred__inv_args__506__1_2_p_0(
  MR_Word HeadVar__1_27,
  MR_Word * HeadVar__2_28)
{
  MR_bool succeeded;
  MR_Box conv0_HeadVar__2_28;

  succeeded = mercury__maybe__maybe_is_yes_2_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), HeadVar__1_27, &conv0_HeadVar__2_28);
  if (succeeded)
  {
    *HeadVar__2_28 = ((MR_Word) (conv0_HeadVar__2_28));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv____Compare____rec_call_0_0(
  MR_Word * HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word HeadVar__3_3)
{
  MR_Word Cast_HeadVar1_4 = HeadVar__2_2;
  MR_Word Cast_HeadVar2_5 = HeadVar__3_3;

  mercury__builtin__compare_3_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_2[0]), HeadVar__1_1, ((MR_Box) (Cast_HeadVar1_4)), ((MR_Box) (Cast_HeadVar2_5)));
}

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____rec_call_0_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2)
{
  MR_bool succeeded;
  MR_Word Cast_HeadVar1_3 = HeadVar__1_1;
  MR_Word Cast_HeadVar2_4 = HeadVar__2_2;

  succeeded = mercury__builtin__unify_2_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_2[0]), ((MR_Box) (Cast_HeadVar1_3)), ((MR_Box) (Cast_HeadVar2_4)));
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv____Compare____igc_info_0_0(
  MR_Word * HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word HeadVar__3_3)
{
  MR_bool succeeded;
  MR_Integer CastX_15 = (MR_Integer) (HeadVar__2_2);
  MR_Integer CastY_16 = (MR_Integer) (HeadVar__3_3);

  succeeded = (CastX_15 == CastY_16);
  if (succeeded)
    *HeadVar__1_1 = (MR_Integer) 0;
  else
  {
    MR_Word ArgX1_4 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 0))));
    MR_Word ArgY1_5 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 0))));
    MR_Word ArgX2_7 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 1))));
    MR_Word ArgY2_8 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 1))));
    MR_Word ArgX3_10 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 2))));
    MR_Word ArgY3_11 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 2))));
    MR_Word ArgX4_13 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 3))));
    MR_Word ArgY4_14 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 3))));
    MR_Word SubResult1_6;

    hlds__hlds_module____Compare____module_info_0_0(&SubResult1_6, ArgX1_4, ArgY1_5);
    succeeded = (SubResult1_6 != (MR_Integer) 0);
    if (succeeded)
      *HeadVar__1_1 = SubResult1_6;
    else
    {
      MR_Word SubResult2_9;

      parse_tree__var_table____Compare____var_table_0_0(&SubResult2_9, ArgX2_7, ArgY2_8);
      succeeded = (SubResult2_9 != (MR_Integer) 0);
      if (succeeded)
        *HeadVar__1_1 = SubResult2_9;
      else
      {
        MR_Word SubResult3_12;

        mercury__builtin__compare_3_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[5]), &SubResult3_12, ((MR_Box) (ArgX3_10)), ((MR_Box) (ArgY3_11)));
        succeeded = (SubResult3_12 != (MR_Integer) 0);
        if (succeeded)
          *HeadVar__1_1 = SubResult3_12;
        else
          mercury__builtin__compare_3_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[6]), HeadVar__1_1, ((MR_Box) (ArgX4_13)), ((MR_Box) (ArgY4_14)));
      }
    }
  }
}

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____igc_info_0_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2)
{
  MR_bool succeeded;
  MR_Integer CastX_11 = (MR_Integer) (HeadVar__1_1);
  MR_Integer CastY_12 = (MR_Integer) (HeadVar__2_2);

  succeeded = (CastX_11 == CastY_12);
  if (succeeded)
    succeeded = MR_TRUE;
  else
  {
    MR_Word TypeInfo_15_15;
    MR_Word TypeInfo_16_16;
    MR_Word ArgX1_3 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 0))));
    MR_Word ArgY1_4 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 0))));
    MR_Word ArgX2_5 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 1))));
    MR_Word ArgY2_6 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 1))));
    MR_Word ArgX3_7 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 2))));
    MR_Word ArgY3_8 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 2))));
    MR_Word ArgX4_9 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 3))));
    MR_Word ArgY4_10 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 3))));

    succeeded = hlds__hlds_module____Unify____module_info_0_0(ArgX1_3, ArgY1_4);
    if (succeeded)
    {
      succeeded = parse_tree__var_table____Unify____var_table_0_0(ArgX2_5, ArgY2_6);
      if (succeeded)
      {
        TypeInfo_15_15 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[5]);
        succeeded = mercury__builtin__unify_2_p_0(TypeInfo_15_15, ((MR_Box) (ArgX3_7)), ((MR_Box) (ArgY3_8)));
        if (succeeded)
        {
          TypeInfo_16_16 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[6]);
          succeeded = mercury__builtin__unify_2_p_0(TypeInfo_16_16, ((MR_Box) (ArgX4_9)), ((MR_Box) (ArgY4_10)));
        }
      }
    }
  }
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv____Compare____gen_aux_proc_info_0_0(
  MR_Word * HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word HeadVar__3_3)
{
  MR_bool succeeded;
  MR_Integer CastX_15 = (MR_Integer) (HeadVar__2_2);
  MR_Integer CastY_16 = (MR_Integer) (HeadVar__3_3);

  succeeded = (CastX_15 == CastY_16);
  if (succeeded)
    *HeadVar__1_1 = (MR_Integer) 0;
  else
  {
    MR_Word ArgX1_4 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 0))));
    MR_Word ArgY1_5 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 0))));
    MR_Word ArgX2_7 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 1))));
    MR_Word ArgY2_8 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 1))));
    MR_Word ArgX3_10 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 2))));
    MR_Word ArgY3_11 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 2))));
    MR_Word ArgX4_13 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 3))));
    MR_Word ArgY4_14 = ((MR_Word) ((MR_hl_field(0, HeadVar__3_3, 3))));
    MR_Word SubResult1_6;

    hlds__hlds_module____Compare____module_info_0_0(&SubResult1_6, ArgX1_4, ArgY1_5);
    succeeded = (SubResult1_6 != (MR_Integer) 0);
    if (succeeded)
      *HeadVar__1_1 = SubResult1_6;
    else
    {
      MR_Word SubResult2_9;

      mercury__builtin__compare_3_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[1]), &SubResult2_9, ((MR_Box) (ArgX2_7)), ((MR_Box) (ArgY2_8)));
      succeeded = (SubResult2_9 != (MR_Integer) 0);
      if (succeeded)
        *HeadVar__1_1 = SubResult2_9;
      else
      {
        MR_Word SubResult3_12;

        hlds__hlds_pred____Compare____pred_proc_id_0_0(&SubResult3_12, ArgX3_10, ArgY3_11);
        succeeded = (SubResult3_12 != (MR_Integer) 0);
        if (succeeded)
          *HeadVar__1_1 = SubResult3_12;
        else
          hlds__hlds_goal____Compare____hlds_goal_0_0(HeadVar__1_1, ArgX4_13, ArgY4_14);
      }
    }
  }
}

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____gen_aux_proc_info_0_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2)
{
  MR_bool succeeded;
  MR_Integer CastX_11 = (MR_Integer) (HeadVar__1_1);
  MR_Integer CastY_12 = (MR_Integer) (HeadVar__2_2);

  succeeded = (CastX_11 == CastY_12);
  if (succeeded)
    succeeded = MR_TRUE;
  else
  {
    MR_Word TypeInfo_14_14;
    MR_Word ArgX1_3 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 0))));
    MR_Word ArgY1_4 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 0))));
    MR_Word ArgX2_5 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 1))));
    MR_Word ArgY2_6 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 1))));
    MR_Word ArgX3_7 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 2))));
    MR_Word ArgY3_8 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 2))));
    MR_Word ArgX4_9 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 3))));
    MR_Word ArgY4_10 = ((MR_Word) ((MR_hl_field(0, HeadVar__2_2, 3))));

    succeeded = hlds__hlds_module____Unify____module_info_0_0(ArgX1_3, ArgY1_4);
    if (succeeded)
    {
      TypeInfo_14_14 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[1]);
      succeeded = mercury__builtin__unify_2_p_0(TypeInfo_14_14, ((MR_Box) (ArgX2_5)), ((MR_Box) (ArgY2_6)));
      if (succeeded)
      {
        succeeded = hlds__hlds_pred____Unify____pred_proc_id_0_0(ArgX3_7, ArgY3_8);
        if (succeeded)
          succeeded = hlds__hlds_goal____Unify____hlds_goal_0_0(ArgX4_9, ArgY4_10);
      }
    }
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__is_output_arg_5_p_0(
  MR_Word ModuleInfo_6,
  MR_Word VarTable_7,
  MR_Word Var_8,
  MR_Word Mode_9,
  MR_Word * Var_5)
{
  MR_bool succeeded;
  MR_Word Type_10;

  *Var_5 = Var_8;
  parse_tree__var_table__lookup_var_type_3_p_0(VarTable_7, Var_8, &Type_10);
  succeeded = hlds__mode_test__mode_is_fully_output_3_p_0(ModuleInfo_6, Type_10, Mode_9);
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__is_input_arg_4_p_0(
  MR_Word ModuleInfo_5,
  MR_Word Var_6,
  MR_Word Mode_7,
  MR_Word * Var_4)
{
  MR_bool succeeded;
  MR_Word InitInst_8;
  MR_Word _FinalInst_9;

  *Var_4 = Var_6;
  hlds__mode_util__mode_get_insts_4_p_0(ModuleInfo_5, Mode_7, &InitInst_8, &_FinalInst_9);
  succeeded = hlds__inst_test__inst_is_free_2_p_0(ModuleInfo_5, InitInst_8);
  succeeded = !(succeeded);
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__uniquely_used_args_4_p_0(
  MR_Word ModuleInfo_5,
  MR_Word X_6,
  MR_Word M_7,
  MR_Word * X_4)
{
  MR_bool succeeded;
  MR_Word InInst_8;
  MR_Word _OutInst_9;

  *X_4 = X_6;
  hlds__mode_util__mode_get_insts_4_p_0(ModuleInfo_5, M_7, &InInst_8, &_OutInst_9);
  succeeded = hlds__inst_test__inst_is_not_partly_unique_2_p_0(ModuleInfo_5, InInst_8);
  succeeded = !(succeeded);
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_case_4_p_0(
  MR_Word PPId_5,
  MR_Word Replacement_6,
  MR_Word Case_7,
  MR_Word * AuxCase_8)
{
  MR_Word MainConsId_9 = ((MR_Word) ((MR_hl_field(0, Case_7, 0))));
  MR_Word OtherConsIds_10 = ((MR_Word) ((MR_hl_field(0, Case_7, 1))));
  MR_Word Goal_11 = ((MR_Word) ((MR_hl_field(0, Case_7, 2))));
  MR_Word AuxGoal_12;

  transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PPId_5, Replacement_6, Goal_11, &AuxGoal_12);
  {
    MR_Word base;
    base = (MR_Word) MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL);
    *AuxCase_8 = base;
    MR_hl_field(0, base, 0) = ((MR_Box) (MainConsId_9));
    MR_hl_field(0, base, 1) = ((MR_Box) (OtherConsIds_10));
    MR_hl_field(0, base, 2) = ((MR_Box) (AuxGoal_12));
  }
}

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_case_3_p_0(
  MR_Word Info_4,
  MR_Word Case_5,
  MR_Word * AuxCase_6)
{
  MR_Word MainConsId_7 = ((MR_Word) ((MR_hl_field(0, Case_5, 0))));
  MR_Word OtherConsIds_8 = ((MR_Word) ((MR_hl_field(0, Case_5, 1))));
  MR_Word Goal_9 = ((MR_Word) ((MR_hl_field(0, Case_5, 2))));
  MR_Word AuxGoal_10;

  transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(Info_4, Goal_9, &AuxGoal_10);
  {
    MR_Word base;
    base = (MR_Word) MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL);
    *AuxCase_6 = base;
    MR_hl_field(0, base, 0) = ((MR_Box) (MainConsId_7));
    MR_hl_field(0, base, 1) = ((MR_Box) (OtherConsIds_8));
    MR_hl_field(0, base, 2) = ((MR_Box) (AuxGoal_10));
  }
}

static void MR_CALL 
transform_hlds__loop_inv__add_output_4_p_0(
  MR_Word UniquelyUsedVars_5,
  MR_Word X_6,
  MR_Word STATE_VARIABLE_InvVars_0_8,
  MR_Word * STATE_VARIABLE_InvVars_9)
{
  MR_bool succeeded;
  MR_Word TypeInfo_11_11;

  succeeded = mercury__list__member_2_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), ((MR_Box) (X_6)), STATE_VARIABLE_InvVars_0_8);
  succeeded = !(succeeded);
  if (succeeded)
  {
    TypeInfo_11_11 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]);
    succeeded = mercury__list__member_2_p_0(TypeInfo_11_11, ((MR_Box) (X_6)), UniquelyUsedVars_5);
    succeeded = !(succeeded);
  }
  if (succeeded)
    {
      MR_Word base;
      base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
      *STATE_VARIABLE_InvVars_9 = base;
      MR_hl_field(1, base, 0) = ((MR_Box) (X_6));
      MR_hl_field(1, base, 1) = ((MR_Box) (STATE_VARIABLE_InvVars_0_8));
    }
  else
    *STATE_VARIABLE_InvVars_9 = STATE_VARIABLE_InvVars_0_8;
}

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_1(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s *) (env_ptr_arg);

  MR_builtin_longjmp((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__commit_0, 1);
}

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_3(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Mode_83 = ((MR_Word) ((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__conv0_Mode_83));
  transform_hlds__loop_inv__do_not_hoist_2_7_p_0_2(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_2(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s *) (env_ptr_arg);

  hlds__mode_util__mode_get_insts_4_p_0((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8, (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Mode_83, &(env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__InitialInst_81, &(env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__FinalInst_82);
  (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = hlds__inst_test__inst_contains_any_2_p_0((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8, (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__InitialInst_81);
  if (!((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded))
    (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = hlds__inst_test__inst_contains_any_2_p_0((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8, (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__FinalInst_82);
  if ((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded)
    transform_hlds__loop_inv__do_not_hoist_2_7_p_0_1(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0_4(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s *) (env_ptr_arg);

  if (MR_builtin_setjmp((env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__commit_0) == 0)
    {
      mercury__list__member_2_p_1((MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), &(env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__conv0_Mode_83, (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Modes_72, transform_hlds__loop_inv__do_not_hoist_2_7_p_0_3, env_ptr);
      (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = MR_FALSE;
    }
  else
    (env_ptr)->transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = MR_TRUE;
}

static void MR_CALL 
transform_hlds__loop_inv__do_not_hoist_2_7_p_0(
  MR_Word ModuleInfo_8,
  MR_Word VarTable_9,
  MR_Word Goal_10,
  MR_Word STATE_VARIABLE_DHGs_0_13,
  MR_Word * STATE_VARIABLE_DHGs_14,
  MR_Word STATE_VARIABLE_DHVs_0_15,
  MR_Word * STATE_VARIABLE_DHVs_16)
{
  struct transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0_s env;

  (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8 = ModuleInfo_8;
  {
    MR_Word GoalExpr_20 = ((MR_Word) ((MR_hl_field(0, Goal_10, 0))));
    MR_Word Construction_22;
    MR_Word Var_44;
    MR_Word Var_46;
    MR_Word _GoalInfo_21;
    MR_Word Var_26;
    MR_Word Var_27;
    MR_Word Var_28;
    MR_Word Var_29;
    MR_Word Var_42;
    MR_Word Var_43;
    MR_Word Var_45;
    MR_Word Var_47;
    MR_Word Var_48;

    (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = ((MR_tag((MR_Word) GoalExpr_20)) == (MR_Integer) 1);
    if ((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded)
    {
      Construction_22 = ((MR_Word) ((MR_hl_field(1, GoalExpr_20, 3))));
      (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = ((MR_tag((MR_Word) Construction_22)) == (MR_Integer) 0);
      if ((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded)
      {
        Var_46 = ((MR_Word) ((MR_hl_field(0, Construction_22, 2))));
        Var_44 = ((MR_Word) ((MR_hl_field(0, Construction_22, 4))));
        (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = (Var_46 == (MR_Word) ((MR_Unsigned) 0U));
        if (!((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded))
        {
          MR_Word Var_23;

          (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = ((MR_tag((MR_Word) Var_44)) == (MR_Integer) 2);
        }
      }
    }
  }
  if (!((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded))
  {
    {
      MR_Word GoalExpr_49 = ((MR_Word) ((MR_hl_field(0, Goal_10, 0))));
      MR_Word Var_57;
      MR_Word _GoalInfo_50;
      MR_Word Var_58;
      MR_Word Var_59;
      MR_Word Var_60;
      MR_Word Var_61;
      MR_Word Var_51;
      MR_Word Var_52;
      MR_Word Var_53;
      MR_Word Var_54;
      MR_Word Var_55;
      MR_Word Var_56;

      (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = ((MR_tag((MR_Word) GoalExpr_49)) == (MR_Integer) 1);
      if ((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded)
      {
        Var_57 = ((MR_Word) ((MR_hl_field(1, GoalExpr_49, 3))));
        (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = ((MR_tag((MR_Word) Var_57)) == (MR_Integer) 1);
      }
    }
    if (!((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded))
    {
      {
        MR_Word Var_62;

        Var_62 = hlds__hlds_goal__goal_get_purity_1_f_0(Goal_10);
        (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = (Var_62 == (MR_Integer) 2);
      }
      if (!((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded))
      {
        {
          MR_Word GoalInfo_64 = ((MR_Word) ((MR_hl_field(0, Goal_10, 1))));
          MR_Word Detism_65;
          MR_Word MaxSolns_67;
          MR_Word _GoalExpr_63;
          MR_Word _CanFail_66;

          Detism_65 = hlds__hlds_goal__goal_info_get_determinism_1_f_0(GoalInfo_64);
          parse_tree__prog_data__determinism_components_3_p_0(Detism_65, &_CanFail_66, &MaxSolns_67);
          (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = (MaxSolns_67 == (MR_Integer) 0);
        }
        if (!((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded))
        {
          MR_Word GoalExpr_68 = ((MR_Word) ((MR_hl_field(0, Goal_10, 0))));
          MR_Word _GoalInfo_69;

          if (((MR_tag((MR_Word) GoalExpr_68)) == (MR_Integer) 2))
          {
            MR_Word PredId_75 = ((MR_Word) ((MR_hl_field(2, GoalExpr_68, 0))));
            MR_Integer ProcId_76 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_68, 1))));
            MR_Word ProcInfo_86;
            MR_Word Var_77;
            MR_Word Var_78;
            MR_Word Var_79;
            MR_Word Var_80;
            MR_Word Var_85;

            hlds__hlds_module__module_info_pred_proc_info_5_p_0((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8, PredId_75, ProcId_76, &Var_85, &ProcInfo_86);
            hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_86, &(env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Modes_72);
            (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = MR_TRUE;
          }
          else
          if (((((MR_tag((MR_Word) GoalExpr_68)) == (MR_Integer) 3)) && ((((MR_Integer) ((MR_hl_field(3, GoalExpr_68, 0)))) == (MR_Integer) 0))))
          {
            MR_Word Var_70;
            MR_Word Var_71;
            MR_Word Var_73;
            MR_Word Var_74;

            (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__Modes_72 = ((MR_Word) ((MR_hl_field(3, GoalExpr_68, 3))));
            (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = MR_TRUE;
          }
          else
            (env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded = MR_FALSE;
          if ((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded)
            transform_hlds__loop_inv__do_not_hoist_2_7_p_0_4(&env);
        }
      }
    }
  }
  if ((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__succeeded)
  {
    mercury__list__cons_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), ((MR_Box) (Goal_10)), STATE_VARIABLE_DHGs_0_13, STATE_VARIABLE_DHGs_14);
    transform_hlds__loop_inv__add_outputs_6_p_0((env).transform_hlds__loop_inv__do_not_hoist_2_7_p_0_env_0__ModuleInfo_8, VarTable_9, (MR_Word) ((MR_Unsigned) 0U), Goal_10, STATE_VARIABLE_DHVs_0_15, STATE_VARIABLE_DHVs_16);
  }
  else
  {
    *STATE_VARIABLE_DHVs_16 = STATE_VARIABLE_DHVs_0_15;
    *STATE_VARIABLE_DHGs_14 = STATE_VARIABLE_DHGs_0_13;
  }
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv6_HeadVar__2_2;

  conv6_HeadVar__2_2 = hlds__mode_util__unify_mode_to_rhs_mode_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv6_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv5_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv5_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv5_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv4_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv4_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv4_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv3_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv3_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv3_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv2_HeadVar__2_2;

  conv2_HeadVar__2_2 = hlds__hlds_goal__foreign_arg_var_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv2_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv1_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv1_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv1_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_Box closure = closure_arg;
  MR_Word conv0_STATE_VARIABLE_InvVars_9;

  transform_hlds__loop_inv__add_output_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv0_STATE_VARIABLE_InvVars_9);
  *wrapper_arg_3 = ((MR_Box) (conv0_STATE_VARIABLE_InvVars_9));
}

static void MR_CALL 
transform_hlds__loop_inv__add_outputs_6_p_0(
  MR_Word ModuleInfo_7,
  MR_Word VarTable_8,
  MR_Word UUVs_9,
  MR_Word Goal_10,
  MR_Word STATE_VARIABLE_InvVars_0_12,
  MR_Word * STATE_VARIABLE_InvVars_13)
{
  MR_bool succeeded;
  MR_Word Var_14;
  MR_Word Var_15;
  MR_Word GoalExpr_21;
  MR_Box conv7_STATE_VARIABLE_InvVars_13;

  {
    Var_14 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
    MR_hl_field(0, Var_14, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[4]));
    MR_hl_field(0, Var_14, 1) = ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_1));
    MR_hl_field(0, Var_14, 2) = ((MR_Box) ((MR_Integer) 1));
    MR_hl_field(0, Var_14, 3) = ((MR_Box) (UUVs_9));
  }
  GoalExpr_21 = ((MR_Word) ((MR_hl_field(0, Goal_10, 0))));
  switch (MR_tag((MR_Word) GoalExpr_21)) {
    default: /*NOTREACHED*/ MR_assert(0);
    case (MR_Integer) 0:
      {
        mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_outputs\'/3", (MR_String) "compound goal");
        return;
      }
      break;
    case (MR_Integer) 1:
      {
        MR_Word LHS_38 = ((MR_Word) ((MR_hl_field(1, GoalExpr_21, 0))));
        MR_Word Kind_41 = ((MR_Word) ((MR_hl_field(1, GoalExpr_21, 3))));

        switch (MR_tag((MR_Word) Kind_41)) {
          default: /*NOTREACHED*/ MR_assert(0);
          case (MR_Integer) 0:
            {
              Var_15 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(1, Var_15, 0) = ((MR_Box) (LHS_38));
              MR_hl_field(1, Var_15, 1) = ((MR_Box) ((MR_Unsigned) 0U));
            }
            break;
          case (MR_Integer) 1:
            {
              MR_Word RHSArgs_45 = ((MR_Word) ((MR_hl_field(1, Kind_41, 2))));
              MR_Word Var_56;
              MR_Word Var_57;
              MR_Word ArgModes_65 = ((MR_Word) ((MR_hl_field(1, Kind_41, 3))));

              {
                Var_56 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_56, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
                MR_hl_field(0, Var_56, 1) = ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_6));
                MR_hl_field(0, Var_56, 2) = ((MR_Box) ((MR_Integer) 2));
                MR_hl_field(0, Var_56, 3) = ((MR_Box) (ModuleInfo_7));
                MR_hl_field(0, Var_56, 4) = ((MR_Box) (VarTable_8));
              }
              Var_57 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_unify_mode_0), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[14]), ArgModes_65);
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_56, RHSArgs_45, Var_57, &Var_15);
            }
            break;
          case (MR_Integer) 2:
            {
              Var_15 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(1, Var_15, 0) = ((MR_Box) (LHS_38));
              MR_hl_field(1, Var_15, 1) = ((MR_Box) ((MR_Unsigned) 0U));
            }
            break;
          case (MR_Integer) 3:
            switch (((MR_Integer) ((MR_hl_field(3, Kind_41, 0))))) {
              default: /*NOTREACHED*/ MR_assert(0);
              case (MR_Integer) 0:
                Var_15 = (MR_Word) ((MR_Unsigned) 0U);
                break;
              case (MR_Integer) 1:
                Var_15 = (MR_Word) ((MR_Unsigned) 0U);
                break;
            }
            break;
        }
      }
      break;
    case (MR_Integer) 2:
      {
        MR_Word PredId_23 = ((MR_Word) ((MR_hl_field(2, GoalExpr_21, 0))));
        MR_Integer ProcId_24 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_21, 1))));
        MR_Word Args_25 = ((MR_Word) ((MR_hl_field(2, GoalExpr_21, 2))));
        MR_Word Var_48;
        MR_Word Var_49;
        MR_Word ProcInfo_79;
        MR_Word Var_78;

        {
          Var_48 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
          MR_hl_field(0, Var_48, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
          MR_hl_field(0, Var_48, 1) = ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_5));
          MR_hl_field(0, Var_48, 2) = ((MR_Box) ((MR_Integer) 2));
          MR_hl_field(0, Var_48, 3) = ((MR_Box) (ModuleInfo_7));
          MR_hl_field(0, Var_48, 4) = ((MR_Box) (VarTable_8));
        }
        hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_7, PredId_23, ProcId_24, &Var_78, &ProcInfo_79);
        hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_79, &Var_49);
        mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_48, Args_25, Var_49, &Var_15);
      }
      break;
    case (MR_Integer) 3:
      switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_21, 0))))) {
        default: /*NOTREACHED*/ MR_assert(0);
        case (MR_Integer) 0:
          {
            MR_Word ArgModes_30 = ((MR_Word) ((MR_hl_field(3, GoalExpr_21, 3))));
            MR_Word Var_50;
            MR_Word Args_62 = ((MR_Word) ((MR_hl_field(3, GoalExpr_21, 2))));

            {
              Var_50 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_50, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
              MR_hl_field(0, Var_50, 1) = ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_4));
              MR_hl_field(0, Var_50, 2) = ((MR_Box) ((MR_Integer) 2));
              MR_hl_field(0, Var_50, 3) = ((MR_Box) (ModuleInfo_7));
              MR_hl_field(0, Var_50, 4) = ((MR_Box) (VarTable_8));
            }
            mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_50, Args_62, ArgModes_30, &Var_15);
          }
          break;
        case (MR_Integer) 1:
          {
            MR_Word ForeignArgs_34 = ((MR_Word) ((MR_hl_field(3, GoalExpr_21, 4))));
            MR_Word Var_51;
            MR_Word Var_52;
            MR_Word Var_53;
            MR_Word PredId_63 = ((MR_Word) ((MR_hl_field(3, GoalExpr_21, 2))));
            MR_Integer ProcId_64 = ((MR_Integer) ((MR_hl_field(3, GoalExpr_21, 3))));
            MR_Word ProcInfo_77;
            MR_Word Var_76;

            {
              Var_51 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_51, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
              MR_hl_field(0, Var_51, 1) = ((MR_Box) (transform_hlds__loop_inv__add_outputs_6_p_0_2));
              MR_hl_field(0, Var_51, 2) = ((MR_Box) ((MR_Integer) 2));
              MR_hl_field(0, Var_51, 3) = ((MR_Box) (ModuleInfo_7));
              MR_hl_field(0, Var_51, 4) = ((MR_Box) (VarTable_8));
            }
            Var_52 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_foreign_arg_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[13]), ForeignArgs_34);
            hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_7, PredId_63, ProcId_64, &Var_76, &ProcInfo_77);
            hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_77, &Var_53);
            mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_51, Var_52, Var_53, &Var_15);
          }
          break;
        case (MR_Integer) 2:
        case (MR_Integer) 3:
        case (MR_Integer) 4:
        case (MR_Integer) 5:
        case (MR_Integer) 6:
        case (MR_Integer) 7:
          {
            mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_outputs\'/3", (MR_String) "compound goal");
            return;
          }
          break;
      }
      break;
  }
  mercury__list__foldl_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]), Var_14, Var_15, ((MR_Box) (STATE_VARIABLE_InvVars_0_12)), &conv7_STATE_VARIABLE_InvVars_13);
  *STATE_VARIABLE_InvVars_13 = ((MR_Word) (conv7_STATE_VARIABLE_InvVars_13));
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_11(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv7_HeadVar__2_2;

  conv7_HeadVar__2_2 = hlds__mode_util__unify_mode_to_rhs_mode_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv7_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_10(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv6_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv6_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv6_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_9(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv5_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv5_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv5_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_8(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv4_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv4_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv4_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv3_HeadVar__2_2;

  conv3_HeadVar__2_2 = hlds__hlds_goal__foreign_arg_var_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv3_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv2_Var_5;

  succeeded = transform_hlds__loop_inv__is_output_arg_5_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv2_Var_5);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv2_Var_5));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_Box closure = closure_arg;
  MR_Word conv1_STATE_VARIABLE_InvVars_9;

  transform_hlds__loop_inv__add_output_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv1_STATE_VARIABLE_InvVars_9);
  *wrapper_arg_3 = ((MR_Box) (conv1_STATE_VARIABLE_InvVars_9));
}

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_1(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s *) (env_ptr_arg);

  MR_builtin_longjmp((env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__commit_0, 1);
}

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_3(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUV_20 = ((MR_Word) ((env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__conv0_UUV_20));
  transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_2(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_2(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__TypeCtorInfo_9_22 = (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_prog_var_type_0);
  (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = parse_tree__set_of_var__member_2_p_0((env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__TypeCtorInfo_9_22, (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__NonLocals_19, (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUV_20);
  if ((env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded)
    transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_1(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_4(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s *) (env_ptr_arg);

  if (MR_builtin_setjmp((env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__commit_0) == 0)
    {
      {
        MR_Word GoalInfo_18 = ((MR_Word) ((MR_hl_field(0, (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12, 1))));
        MR_Word _GoalExpr_17;

        (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__NonLocals_19 = hlds__hlds_goal__goal_info_get_nonlocals_1_f_0(GoalInfo_18);
        mercury__list__member_2_p_1((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), &(env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__conv0_UUV_20, (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUVs_11, transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_3, env_ptr);
      }
      (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = MR_FALSE;
    }
  else
    (env_ptr)->transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = MR_TRUE;
}

static void MR_CALL 
transform_hlds__loop_inv__inv_goals_vars_2_8_p_0(
  MR_Word ModuleInfo_9,
  MR_Word VarTable_10,
  MR_Word UUVs_11,
  MR_Word Goal_12,
  MR_Word IGs0_13,
  MR_Word * IGs_14,
  MR_Word IVs0_15,
  MR_Word * IVs_16)
{
  struct transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0_s env;

  (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUVs_11 = UUVs_11;
  (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12 = Goal_12;
  (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = transform_hlds__loop_inv__invariant_goal_2_p_0(IGs0_13, (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12);
  (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = !((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded);
  if ((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded)
  {
    transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_4(&env);
    (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = !((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded);
    if ((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded)
      (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded = transform_hlds__loop_inv__input_args_are_invariant_3_p_0(ModuleInfo_9, (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12, IVs0_15);
  }
  if ((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__succeeded)
  {
    MR_Word Var_23;
    MR_Word Var_24;
    MR_Word GoalExpr_27;
    MR_Word _GoalInfo_28;
    MR_Box conv8_IVs_16;

    {
      MR_Word base;
      base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
      *IGs_14 = base;
      MR_hl_field(1, base, 0) = ((MR_Box) ((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12));
      MR_hl_field(1, base, 1) = ((MR_Box) (IGs0_13));
    }
    {
      Var_23 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
      MR_hl_field(0, Var_23, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[4]));
      MR_hl_field(0, Var_23, 1) = ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_5));
      MR_hl_field(0, Var_23, 2) = ((MR_Box) ((MR_Integer) 1));
      MR_hl_field(0, Var_23, 3) = ((MR_Box) ((env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__UUVs_11));
    }
    GoalExpr_27 = ((MR_Word) ((MR_hl_field(0, (env).transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_env_0__Goal_12, 0))));
    switch (MR_tag((MR_Word) GoalExpr_27)) {
      default: /*NOTREACHED*/ MR_assert(0);
      case (MR_Integer) 0:
        {
          mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_outputs\'/3", (MR_String) "compound goal");
          return;
        }
        break;
      case (MR_Integer) 1:
        {
          MR_Word LHS_44 = ((MR_Word) ((MR_hl_field(1, GoalExpr_27, 0))));
          MR_Word Kind_47 = ((MR_Word) ((MR_hl_field(1, GoalExpr_27, 3))));
          MR_Word _RHS_45;
          MR_Word Var_46;
          MR_Word Var_48;

          switch (MR_tag((MR_Word) Kind_47)) {
            default: /*NOTREACHED*/ MR_assert(0);
            case (MR_Integer) 0:
              {
                Var_24 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                MR_hl_field(1, Var_24, 0) = ((MR_Box) (LHS_44));
                MR_hl_field(1, Var_24, 1) = ((MR_Box) ((MR_Unsigned) 0U));
              }
              break;
            case (MR_Integer) 1:
              {
                MR_Word RHSArgs_51 = ((MR_Word) ((MR_hl_field(1, Kind_47, 2))));
                MR_Word Var_62;
                MR_Word Var_63;
                MR_Word ArgModes_71 = ((MR_Word) ((MR_hl_field(1, Kind_47, 3))));
                MR_Word Var_49;
                MR_Word Var_50;
                MR_Word Var_52;
                MR_Word Var_53;

                {
                  Var_62 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
                  MR_hl_field(0, Var_62, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
                  MR_hl_field(0, Var_62, 1) = ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_10));
                  MR_hl_field(0, Var_62, 2) = ((MR_Box) ((MR_Integer) 2));
                  MR_hl_field(0, Var_62, 3) = ((MR_Box) (ModuleInfo_9));
                  MR_hl_field(0, Var_62, 4) = ((MR_Box) (VarTable_10));
                }
                Var_63 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_unify_mode_0), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[12]), ArgModes_71);
                mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_62, RHSArgs_51, Var_63, &Var_24);
              }
              break;
            case (MR_Integer) 2:
              {
                Var_24 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                MR_hl_field(1, Var_24, 0) = ((MR_Box) (LHS_44));
                MR_hl_field(1, Var_24, 1) = ((MR_Box) ((MR_Unsigned) 0U));
              }
              break;
            case (MR_Integer) 3:
              switch (((MR_Integer) ((MR_hl_field(3, Kind_47, 0))))) {
                default: /*NOTREACHED*/ MR_assert(0);
                case (MR_Integer) 0:
                  Var_24 = (MR_Word) ((MR_Unsigned) 0U);
                  break;
                case (MR_Integer) 1:
                  Var_24 = (MR_Word) ((MR_Unsigned) 0U);
                  break;
              }
              break;
          }
        }
        break;
      case (MR_Integer) 2:
        {
          MR_Word PredId_29 = ((MR_Word) ((MR_hl_field(2, GoalExpr_27, 0))));
          MR_Integer ProcId_30 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_27, 1))));
          MR_Word Args_31 = ((MR_Word) ((MR_hl_field(2, GoalExpr_27, 2))));
          MR_Word Var_54;
          MR_Word Var_55;
          MR_Word ProcInfo_85;
          MR_Word Var_32;
          MR_Word Var_33;
          MR_Word Var_34;
          MR_Word Var_84;

          {
            Var_54 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
            MR_hl_field(0, Var_54, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
            MR_hl_field(0, Var_54, 1) = ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_9));
            MR_hl_field(0, Var_54, 2) = ((MR_Box) ((MR_Integer) 2));
            MR_hl_field(0, Var_54, 3) = ((MR_Box) (ModuleInfo_9));
            MR_hl_field(0, Var_54, 4) = ((MR_Box) (VarTable_10));
          }
          hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_9, PredId_29, ProcId_30, &Var_84, &ProcInfo_85);
          hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_85, &Var_55);
          mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_54, Args_31, Var_55, &Var_24);
        }
        break;
      case (MR_Integer) 3:
        switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_27, 0))))) {
          default: /*NOTREACHED*/ MR_assert(0);
          case (MR_Integer) 0:
            {
              MR_Word ArgModes_36 = ((MR_Word) ((MR_hl_field(3, GoalExpr_27, 3))));
              MR_Word Var_56;
              MR_Word Args_68 = ((MR_Word) ((MR_hl_field(3, GoalExpr_27, 2))));
              MR_Word Var_35;
              MR_Word Var_37;
              MR_Word Var_38;

              {
                Var_56 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_56, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
                MR_hl_field(0, Var_56, 1) = ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_8));
                MR_hl_field(0, Var_56, 2) = ((MR_Box) ((MR_Integer) 2));
                MR_hl_field(0, Var_56, 3) = ((MR_Box) (ModuleInfo_9));
                MR_hl_field(0, Var_56, 4) = ((MR_Box) (VarTable_10));
              }
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_56, Args_68, ArgModes_36, &Var_24);
            }
            break;
          case (MR_Integer) 1:
            {
              MR_Word ForeignArgs_40 = ((MR_Word) ((MR_hl_field(3, GoalExpr_27, 4))));
              MR_Word Var_57;
              MR_Word Var_58;
              MR_Word Var_59;
              MR_Word PredId_69 = ((MR_Word) ((MR_hl_field(3, GoalExpr_27, 2))));
              MR_Integer ProcId_70 = ((MR_Integer) ((MR_hl_field(3, GoalExpr_27, 3))));
              MR_Word ProcInfo_83;
              MR_Word Var_39;
              MR_Word Var_41;
              MR_Word Var_42;
              MR_Word Var_43;
              MR_Word Var_82;

              {
                Var_57 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_57, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_8[0]));
                MR_hl_field(0, Var_57, 1) = ((MR_Box) (transform_hlds__loop_inv__inv_goals_vars_2_8_p_0_6));
                MR_hl_field(0, Var_57, 2) = ((MR_Box) ((MR_Integer) 2));
                MR_hl_field(0, Var_57, 3) = ((MR_Box) (ModuleInfo_9));
                MR_hl_field(0, Var_57, 4) = ((MR_Box) (VarTable_10));
              }
              Var_58 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_foreign_arg_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[11]), ForeignArgs_40);
              hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_9, PredId_69, ProcId_70, &Var_82, &ProcInfo_83);
              hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_83, &Var_59);
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_57, Var_58, Var_59, &Var_24);
            }
            break;
          case (MR_Integer) 2:
          case (MR_Integer) 3:
          case (MR_Integer) 4:
          case (MR_Integer) 5:
          case (MR_Integer) 6:
          case (MR_Integer) 7:
            {
              mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_outputs\'/3", (MR_String) "compound goal");
              return;
            }
            break;
        }
        break;
    }
    mercury__list__foldl_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]), Var_23, Var_24, ((MR_Box) (IVs0_15)), &conv8_IVs_16);
    *IVs_16 = ((MR_Word) (conv8_IVs_16));
  }
  else
  {
    *IGs_14 = IGs0_13;
    *IVs_16 = IVs0_15;
  }
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_8(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv7_HeadVar__2_2;

  conv7_HeadVar__2_2 = hlds__mode_util__unify_mode_to_rhs_mode_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv7_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv6_Var_4;

  succeeded = transform_hlds__loop_inv__is_input_arg_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv6_Var_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv6_Var_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv5_HeadVar__2_2;

  conv5_HeadVar__2_2 = hlds__mode_util__unify_mode_to_rhs_mode_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv5_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv4_Var_4;

  succeeded = transform_hlds__loop_inv__is_input_arg_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv4_Var_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv4_Var_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv3_Var_4;

  succeeded = transform_hlds__loop_inv__is_input_arg_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv3_Var_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv3_Var_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv2_Var_4;

  succeeded = transform_hlds__loop_inv__is_input_arg_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv2_Var_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv2_Var_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv1_HeadVar__2_2;

  conv1_HeadVar__2_2 = hlds__hlds_goal__foreign_arg_var_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv1_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv0_Var_4;

  succeeded = transform_hlds__loop_inv__is_input_arg_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv0_Var_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv0_Var_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_9(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s *) (env_ptr_arg);

  MR_builtin_longjmp((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__commit_0, 1);
}

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_11(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__V_8 = ((MR_Word) ((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__conv8_V_8));
  transform_hlds__loop_inv__input_args_are_invariant_3_p_0_10(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_10(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded = mercury__list__member_2_p_0((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__TypeInfo_9_9, ((MR_Box) ((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__V_8)), (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__InvVars_6);
  (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded = !((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded);
  if ((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded)
    transform_hlds__loop_inv__input_args_are_invariant_3_p_0_9(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0_12(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s *) (env_ptr_arg);

  if (MR_builtin_setjmp((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__commit_0) == 0)
    {
      (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__TypeInfo_9_9 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]);
      mercury__list__member_2_p_1((env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__TypeInfo_9_9, &(env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__conv8_V_8, (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7, transform_hlds__loop_inv__input_args_are_invariant_3_p_0_11, env_ptr);
      (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded = MR_FALSE;
    }
  else
    (env_ptr)->transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded = MR_TRUE;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__input_args_are_invariant_3_p_0(
  MR_Word ModuleInfo_4,
  MR_Word Goal_5,
  MR_Word InvVars_6)
{
  struct transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0_s env;

  (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__InvVars_6 = InvVars_6;
  {
    MR_Word GoalExpr_10 = ((MR_Word) ((MR_hl_field(0, Goal_5, 0))));
    MR_Word _GoalInfo_11;

    switch (MR_tag((MR_Word) GoalExpr_10)) {
      default: /*NOTREACHED*/ MR_assert(0);
      case (MR_Integer) 0:
        mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_inputs\'/2", (MR_String) "compound goal");
        break;
      case (MR_Integer) 1:
        {
          MR_Word LHS_29 = ((MR_Word) ((MR_hl_field(1, GoalExpr_10, 0))));
          MR_Word UnifyRHS_30 = ((MR_Word) ((MR_hl_field(1, GoalExpr_10, 1))));
          MR_Word Kind_32 = ((MR_Word) ((MR_hl_field(1, GoalExpr_10, 3))));
          MR_Word Var_31;
          MR_Word Var_33;

          switch (MR_tag((MR_Word) Kind_32)) {
            default: /*NOTREACHED*/ MR_assert(0);
            case (MR_Integer) 0:
              {
                MR_Word RHSArgs_36 = ((MR_Word) ((MR_hl_field(0, Kind_32, 2))));
                MR_Word Var_55;
                MR_Word Var_56;
                MR_Word ArgModes_74 = ((MR_Word) ((MR_hl_field(0, Kind_32, 3))));
                MR_Word Var_34;
                MR_Word Var_35;
                MR_Word Var_37;
                MR_Word Var_38;
                MR_Word Var_39;

                {
                  Var_55 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                  MR_hl_field(0, Var_55, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
                  MR_hl_field(0, Var_55, 1) = ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_5));
                  MR_hl_field(0, Var_55, 2) = ((MR_Box) ((MR_Integer) 1));
                  MR_hl_field(0, Var_55, 3) = ((MR_Box) (ModuleInfo_4));
                }
                Var_56 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_unify_mode_0), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[9]), ArgModes_74);
                mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_55, RHSArgs_36, Var_56, &(env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7);
              }
              break;
            case (MR_Integer) 1:
              {
                MR_Word RHSInputs_44;
                MR_Word Var_58;
                MR_Word Var_59;
                MR_Word ArgModes_75 = ((MR_Word) ((MR_hl_field(1, Kind_32, 3))));
                MR_Word RHSArgs_76 = ((MR_Word) ((MR_hl_field(1, Kind_32, 2))));
                MR_Word Var_40;
                MR_Word Var_41;
                MR_Word Var_42;
                MR_Word Var_43;

                {
                  Var_58 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                  MR_hl_field(0, Var_58, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
                  MR_hl_field(0, Var_58, 1) = ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_7));
                  MR_hl_field(0, Var_58, 2) = ((MR_Box) ((MR_Integer) 1));
                  MR_hl_field(0, Var_58, 3) = ((MR_Box) (ModuleInfo_4));
                }
                Var_59 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_unify_mode_0), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[10]), ArgModes_75);
                mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_58, RHSArgs_76, Var_59, &RHSInputs_44);
                {
                  MR_Word base;
                  base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                  (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7 = base;
                  MR_hl_field(1, base, 0) = ((MR_Box) (LHS_29));
                  MR_hl_field(1, base, 1) = ((MR_Box) (RHSInputs_44));
                }
              }
              break;
            case (MR_Integer) 2:
              {
                MR_Word RHS_46 = ((MR_Word) ((MR_hl_field(2, Kind_32, 1))));
                MR_Word Var_45;

                {
                  MR_Word base;
                  base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                  (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7 = base;
                  MR_hl_field(1, base, 0) = ((MR_Box) (RHS_46));
                  MR_hl_field(1, base, 1) = ((MR_Box) ((MR_Unsigned) 0U));
                }
              }
              break;
            case (MR_Integer) 3:
              switch (((MR_Integer) ((MR_hl_field(3, Kind_32, 0))))) {
                default: /*NOTREACHED*/ MR_assert(0);
                case (MR_Integer) 0:
                  {
                    MR_Word Var_62;
                    MR_Word RHS_77 = ((MR_Word) ((MR_hl_field(3, Kind_32, 2))));
                    MR_Word Var_47;

                    {
                      Var_62 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                      MR_hl_field(1, Var_62, 0) = ((MR_Box) (RHS_77));
                      MR_hl_field(1, Var_62, 1) = ((MR_Box) ((MR_Unsigned) 0U));
                    }
                    {
                      MR_Word base;
                      base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                      (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7 = base;
                      MR_hl_field(1, base, 0) = ((MR_Box) (LHS_29));
                      MR_hl_field(1, base, 1) = ((MR_Box) (Var_62));
                    }
                  }
                  break;
                case (MR_Integer) 1:
                  switch (MR_tag((MR_Word) UnifyRHS_30)) {
                    default: /*NOTREACHED*/ MR_assert(0);
                    case (MR_Integer) 0:
                      {
                        MR_Word Var_64;
                        MR_Word RHS_78 = ((MR_Word) ((MR_hl_field(0, UnifyRHS_30, 0))));

                        {
                          Var_64 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                          MR_hl_field(1, Var_64, 0) = ((MR_Box) (RHS_78));
                          MR_hl_field(1, Var_64, 1) = ((MR_Box) ((MR_Unsigned) 0U));
                        }
                        {
                          MR_Word base;
                          base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                          (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7 = base;
                          MR_hl_field(1, base, 0) = ((MR_Box) (LHS_29));
                          MR_hl_field(1, base, 1) = ((MR_Box) (Var_64));
                        }
                      }
                      break;
                    case (MR_Integer) 1:
                      {
                        MR_Word base;
                        base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
                        (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7 = base;
                        MR_hl_field(1, base, 0) = ((MR_Box) (LHS_29));
                        MR_hl_field(1, base, 1) = ((MR_Box) ((MR_Unsigned) 0U));
                      }
                      break;
                    case (MR_Integer) 2:
                      mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_inputs\'/2", (MR_String) "lambda goal");
                      break;
                  }
                  break;
              }
              break;
          }
        }
        break;
      case (MR_Integer) 2:
        {
          MR_Word PredId_12 = ((MR_Word) ((MR_hl_field(2, GoalExpr_10, 0))));
          MR_Integer ProcId_13 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_10, 1))));
          MR_Word Args_14 = ((MR_Word) ((MR_hl_field(2, GoalExpr_10, 2))));
          MR_Word Var_48;
          MR_Word Var_49;
          MR_Word ProcInfo_95;
          MR_Word Var_15;
          MR_Word Var_16;
          MR_Word Var_17;
          MR_Word Var_94;

          {
            Var_48 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
            MR_hl_field(0, Var_48, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
            MR_hl_field(0, Var_48, 1) = ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_4));
            MR_hl_field(0, Var_48, 2) = ((MR_Box) ((MR_Integer) 1));
            MR_hl_field(0, Var_48, 3) = ((MR_Box) (ModuleInfo_4));
          }
          hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_4, PredId_12, ProcId_13, &Var_94, &ProcInfo_95);
          hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_95, &Var_49);
          mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_48, Args_14, Var_49, &(env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7);
        }
        break;
      case (MR_Integer) 3:
        switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_10, 0))))) {
          default: /*NOTREACHED*/ MR_assert(0);
          case (MR_Integer) 0:
            {
              MR_Word GenericCall_18 = ((MR_Word) ((MR_hl_field(3, GoalExpr_10, 1))));
              MR_Word ArgModes_19 = ((MR_Word) ((MR_hl_field(3, GoalExpr_10, 3))));
              MR_Word GenericCallVars_22;
              MR_Word Inputs0_23;
              MR_Word Var_50;
              MR_Word Args_71 = ((MR_Word) ((MR_hl_field(3, GoalExpr_10, 2))));
              MR_Word Var_20;
              MR_Word Var_21;

              hlds__goal_vars__vars_in_generic_call_2_p_0(GenericCall_18, &GenericCallVars_22);
              {
                Var_50 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_50, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
                MR_hl_field(0, Var_50, 1) = ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_3));
                MR_hl_field(0, Var_50, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_50, 3) = ((MR_Box) (ModuleInfo_4));
              }
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_50, Args_71, ArgModes_19, &Inputs0_23);
              (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7 = mercury__list__f_43_43_2_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), GenericCallVars_22, Inputs0_23);
            }
            break;
          case (MR_Integer) 1:
            {
              MR_Word ForeignArgs_25 = ((MR_Word) ((MR_hl_field(3, GoalExpr_10, 4))));
              MR_Word Var_51;
              MR_Word Var_52;
              MR_Word Var_53;
              MR_Word PredId_72 = ((MR_Word) ((MR_hl_field(3, GoalExpr_10, 2))));
              MR_Integer ProcId_73 = ((MR_Integer) ((MR_hl_field(3, GoalExpr_10, 3))));
              MR_Word ProcInfo_93;
              MR_Word Var_24;
              MR_Word Var_26;
              MR_Word Var_27;
              MR_Word Var_28;
              MR_Word Var_92;

              {
                Var_51 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_51, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
                MR_hl_field(0, Var_51, 1) = ((MR_Box) (transform_hlds__loop_inv__input_args_are_invariant_3_p_0_1));
                MR_hl_field(0, Var_51, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_51, 3) = ((MR_Box) (ModuleInfo_4));
              }
              Var_52 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_foreign_arg_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[8]), ForeignArgs_25);
              hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_4, PredId_72, ProcId_73, &Var_92, &ProcInfo_93);
              hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_93, &Var_53);
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_51, Var_52, Var_53, &(env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__Inputs_7);
            }
            break;
          case (MR_Integer) 2:
          case (MR_Integer) 3:
          case (MR_Integer) 4:
          case (MR_Integer) 5:
          case (MR_Integer) 6:
          case (MR_Integer) 7:
            mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.goal_inputs\'/2", (MR_String) "compound goal");
            break;
        }
        break;
    }
    transform_hlds__loop_inv__input_args_are_invariant_3_p_0_12(&env);
    (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded = !((env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded);
    return (env).transform_hlds__loop_inv__input_args_are_invariant_3_p_0_env_0__succeeded;
  }
}

static MR_Word MR_CALL 
transform_hlds__loop_inv__refine_candidate_inv_args_2_2_f_0(
  MR_Word HeadVar__1_1,
  MR_Word Y_2)
{
  MR_bool succeeded;
  MR_Word HeadVar__3_3;

  if ((HeadVar__1_1 == (MR_Word) ((MR_Unsigned) 0U)))
    HeadVar__3_3 = (MR_Word) ((MR_Unsigned) 0U);
  else
  {
    MR_Word X_5 = ((MR_Word) ((MR_hl_field(1, HeadVar__1_1, 0))));

    succeeded = mercury__builtin__unify_2_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), ((MR_Box) (X_5)), ((MR_Box) (Y_2)));
    if (succeeded)
      HeadVar__3_3 = HeadVar__1_1;
    else
      HeadVar__3_3 = (MR_Word) ((MR_Unsigned) 0U);
  }
  return HeadVar__3_3;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__refine_candidate_inv_args_2_f_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_Box wrapper_arg_3;
  MR_Box closure = closure_arg;
  MR_Word conv0_HeadVar__3_3;

  conv0_HeadVar__3_3 = transform_hlds__loop_inv__refine_candidate_inv_args_2_2_f_0(((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  wrapper_arg_3 = ((MR_Box) (conv0_HeadVar__3_3));
  return wrapper_arg_3;
}

static MR_Word MR_CALL 
transform_hlds__loop_inv__refine_candidate_inv_args_2_f_0(
  MR_Word HeadVar__1_1,
  MR_Word MaybeInvArgs_6)
{
  MR_bool succeeded;
  MR_Word HeadVar__3_3;
  MR_Word RecCall_4 = ((MR_Word) ((MR_hl_field(0, HeadVar__1_1, 0))));
  MR_Word CallArgs_9;

  succeeded = ((MR_tag((MR_Word) RecCall_4)) == (MR_Integer) 2);
  if (succeeded)
  {
    CallArgs_9 = ((MR_Word) ((MR_hl_field(2, RecCall_4, 2))));
    HeadVar__3_3 = mercury__list__map_corresponding_3_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[2]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[2]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[7]), MaybeInvArgs_6, CallArgs_9);
  }
  else
  {
    MR_Box conv1_HeadVar__3_3;

    conv1_HeadVar__3_3 = mercury__require__unexpected_2_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[3]), (MR_String) "function \140transform_hlds.loop_inv.refine_candidate_inv_args\'/2", (MR_String) "non call/6 found in argument 1");
    HeadVar__3_3 = ((MR_Word) (conv1_HeadVar__3_3));
  }
  return HeadVar__3_3;
}

static MR_Word MR_CALL 
transform_hlds__loop_inv__arg_to_maybe_inv_arg_3_f_0(
  MR_Word ModuleInfo_5,
  MR_Word Arg_6,
  MR_Word Mode_7)
{
  MR_bool succeeded;
  MR_Word HeadVar__4_4;
  MR_Word InvArg_8 = Arg_6;
  MR_Word InitInst_9;
  MR_Word _FinalInst_10;

  hlds__mode_util__mode_get_insts_4_p_0(ModuleInfo_5, Mode_7, &InitInst_9, &_FinalInst_10);
  succeeded = hlds__inst_test__inst_is_free_2_p_0(ModuleInfo_5, InitInst_9);
  succeeded = !(succeeded);
  if (succeeded)
    {
      HeadVar__4_4 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (1 * sizeof(MR_Word)), NULL, NULL));
      MR_hl_field(1, HeadVar__4_4, 0) = ((MR_Box) (InvArg_8));
    }
  else
    HeadVar__4_4 = (MR_Word) ((MR_Unsigned) 0U);
  return HeadVar__4_4;
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_1(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  MR_builtin_longjmp((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__commit_0, 1);
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_3(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__Gs_5 = ((MR_Word) ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__conv0_Gs_5));
  transform_hlds__loop_inv__common_goal_2_p_0_2(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_4(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  MR_builtin_longjmp((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__commit_1, 1);
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_6(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__G_6 = ((MR_Word) ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__conv1_G_6));
  transform_hlds__loop_inv__common_goal_2_p_0_5(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_5(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  {
    MR_Word Var_10;
    MR_Word Var_12;

    (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9 = ((MR_Word) ((MR_hl_field(0, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__G_6, 0))));
    (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11 = ((MR_Word) ((MR_hl_field(0, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__Goal_4, 0))));
    (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = hlds__hlds_goal____Unify____hlds_goal_expr_0_0((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11);
    if (!((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded))
    {
      MR_Word TypeInfo_22_28;
      MR_Word PredId_13;
      MR_Integer ProcId_14;
      MR_Word Args_15;
      MR_Word Var_22;
      MR_Integer Var_23;
      MR_Word Var_24;
      MR_Word _BuiltinX_16;
      MR_Word _ContextX_17;
      MR_Word _SymNameX_18;
      MR_Word _BuiltinY_19;
      MR_Word _ContextY_20;
      MR_Word _SymNameY_21;

      (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = ((MR_tag((MR_Word) (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9)) == (MR_Integer) 2);
      if ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded)
      {
        PredId_13 = ((MR_Word) ((MR_hl_field(2, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9, 0))));
        ProcId_14 = ((MR_Integer) ((MR_hl_field(2, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9, 1))));
        Args_15 = ((MR_Word) ((MR_hl_field(2, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprX_9, 2))));
        (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = ((MR_tag((MR_Word) (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11)) == (MR_Integer) 2);
        if ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded)
        {
          Var_22 = ((MR_Word) ((MR_hl_field(2, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11, 0))));
          Var_23 = ((MR_Integer) ((MR_hl_field(2, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11, 1))));
          Var_24 = ((MR_Word) ((MR_hl_field(2, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__GoalExprY_11, 2))));
          (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = hlds__hlds_pred____Unify____pred_id_0_0(PredId_13, Var_22);
          if ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded)
          {
            (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = (ProcId_14 == Var_23);
            if ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded)
            {
              TypeInfo_22_28 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]);
              (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = mercury__builtin__unify_2_p_0(TypeInfo_22_28, ((MR_Box) (Args_15)), ((MR_Box) (Var_24)));
            }
          }
        }
      }
    }
    if ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded)
      transform_hlds__loop_inv__common_goal_2_p_0_4(env_ptr);
  }
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_7(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  if (MR_builtin_setjmp((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__commit_1) == 0)
    {
      mercury__list__member_2_p_1((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), &(env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__conv1_G_6, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__Gs_5, transform_hlds__loop_inv__common_goal_2_p_0_6, env_ptr);
      (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = MR_FALSE;
    }
  else
    (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = MR_TRUE;
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_2(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  transform_hlds__loop_inv__common_goal_2_p_0_7(env_ptr);
  (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = !((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded);
  if ((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded)
    transform_hlds__loop_inv__common_goal_2_p_0_1(env_ptr);
}

static void MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0_8(
  void * env_ptr_arg)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s * env_ptr = (struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s *) (env_ptr_arg);

  if (MR_builtin_setjmp((env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__commit_0) == 0)
    {
      mercury__list__member_2_p_1((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[1]), &(env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__conv0_Gs_5, (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__Goalss_3, transform_hlds__loop_inv__common_goal_2_p_0_3, env_ptr);
      (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = MR_FALSE;
    }
  else
    (env_ptr)->transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = MR_TRUE;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__common_goal_2_p_0(
  MR_Word Goalss_3,
  MR_Word Goal_4)
{
  struct transform_hlds__loop_inv__common_goal_2_p_0_env_0_s env;

  (env).transform_hlds__loop_inv__common_goal_2_p_0_env_0__Goalss_3 = Goalss_3;
  (env).transform_hlds__loop_inv__common_goal_2_p_0_env_0__Goal_4 = Goal_4;
  transform_hlds__loop_inv__common_goal_2_p_0_8(&env);
  (env).transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded = !((env).transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded);
  return (env).transform_hlds__loop_inv__common_goal_2_p_0_env_0__succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_Box wrapper_arg_3;
  MR_Box closure = closure_arg;
  MR_Word conv12_LambdaHeadVar__3_14;

  conv12_LambdaHeadVar__3_14 = transform_hlds__loop_inv__IntroducedFrom__func__compute_initial_aux_instmap__739__1_2_f_0(((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  wrapper_arg_3 = ((MR_Box) (conv12_LambdaHeadVar__3_14));
  return wrapper_arg_3;
}

static void MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3,
  MR_Box wrapper_arg_4,
  MR_Box * wrapper_arg_5)
{
  MR_Box closure = closure_arg;
  MR_Word conv9_STATE_VARIABLE_DHGs_14;
  MR_Word conv8_STATE_VARIABLE_DHVs_16;

  transform_hlds__loop_inv__do_not_hoist_2_7_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv9_STATE_VARIABLE_DHGs_14, ((MR_Word) (wrapper_arg_4)), &conv8_STATE_VARIABLE_DHVs_16);
  *wrapper_arg_3 = ((MR_Box) (conv9_STATE_VARIABLE_DHGs_14));
  *wrapper_arg_5 = ((MR_Box) (conv8_STATE_VARIABLE_DHVs_16));
}

static void MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3,
  MR_Box wrapper_arg_4,
  MR_Box * wrapper_arg_5)
{
  MR_Box closure = closure_arg;
  MR_Word conv5_IGs_14;
  MR_Word conv4_IVs_16;

  transform_hlds__loop_inv__inv_goals_vars_2_8_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) ((MR_hl_field(0, closure, 5)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv5_IGs_14, ((MR_Word) (wrapper_arg_4)), &conv4_IVs_16);
  *wrapper_arg_3 = ((MR_Box) (conv5_IGs_14));
  *wrapper_arg_5 = ((MR_Box) (conv4_IVs_16));
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv3_HeadVar__2_28;

  succeeded = transform_hlds__loop_inv__IntroducedFrom__pred__inv_args__506__1_2_p_0(((MR_Word) (wrapper_arg_1)), &conv3_HeadVar__2_28);
  if (succeeded)
  {
    *wrapper_arg_2 = ((MR_Box) (conv3_HeadVar__2_28));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_Box wrapper_arg_3;
  MR_Box closure = closure_arg;
  MR_Word conv1_HeadVar__3_3;

  conv1_HeadVar__3_3 = transform_hlds__loop_inv__refine_candidate_inv_args_2_f_0(((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  wrapper_arg_3 = ((MR_Box) (conv1_HeadVar__3_3));
  return wrapper_arg_3;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_Box wrapper_arg_3;
  MR_Box closure = closure_arg;
  MR_Word conv0_HeadVar__4_4;

  conv0_HeadVar__4_4 = transform_hlds__loop_inv__arg_to_maybe_inv_arg_3_f_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  wrapper_arg_3 = ((MR_Box) (conv0_HeadVar__4_4));
  return wrapper_arg_3;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;

  succeeded = transform_hlds__loop_inv__common_goal_2_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)));
  return succeeded;
}

void MR_CALL 
transform_hlds__loop_inv__hoist_loop_invariants_6_p_0(
  MR_Word PredProcId_7,
  MR_Word PredInfo_8,
  MR_Word STATE_VARIABLE_ProcInfo_0_35,
  MR_Word * STATE_VARIABLE_ProcInfo_36,
  MR_Word STATE_VARIABLE_ModuleInfo_0_37,
  MR_Word * STATE_VARIABLE_ModuleInfo_38)
{
  MR_bool succeeded;
  MR_Word Body_11;
  MR_Word HeadVars_12;
  MR_Word InvArgs_19;
  MR_Word InvGoals_24;
  MR_Word InvVars_25;
  MR_Word TypeInfo_42_42;
  MR_Word TypeCtorInfo_43_43;
  MR_Word TypeInfo_7_47;
  MR_Word TypeCtorInfo_22_57;
  MR_Word TypeInfo_23_58;
  MR_Word TypeInfo_16_68;
  MR_Word TypeCtorInfo_17_69;
  MR_Word TypeInfo_18_70;
  MR_Word TypeCtorInfo_22_71;
  MR_Word TypeInfo_23_72;
  MR_Word TypeCtorInfo_22_75;
  MR_Word TypeInfo_23_76;
  MR_Word TypeInfo_24_77;
  MR_Word TypeCtorInfo_19_81;
  MR_Word TypeInfo_20_82;
  MR_Word TypeInfo_21_83;
  MR_Word HeadVarModes_13;
  MR_Word VarTable_14;
  MR_Word UniquelyUsedVars_15;
  MR_Word InvGoals0_16;
  MR_Word RecCalls_17;
  MR_Word InvArgs0_18;
  MR_Word InvGoals1_20;
  MR_Word InvVars1_21;
  MR_Word DontHoistGoals_22;
  MR_Word DontHoistVars_23;
  MR_Word Var_45;
  MR_Word Var_46;
  MR_Word GoalCandidates0_48;
  MR_Word GoalCandidates_49;
  MR_Word RecCalls_53;
  MR_Word CandidateInvGoalsList_54;
  MR_Word Var_55;
  MR_Word Var_56;
  MR_Word MaybeInvArgs0_63;
  MR_Word MaybeInvArgs_64;
  MR_Word Var_65;
  MR_Word Var_66;
  MR_Word Var_67;
  MR_Word Var_73;
  MR_Word Var_74;
  MR_Word Var_78;
  MR_Word Var_79;
  MR_Word Var_80;
  MR_Box conv2_MaybeInvArgs_64;
  MR_Box conv7_InvGoals1_20;
  MR_Box conv6_InvVars1_21;
  MR_Box conv11_DontHoistGoals_22;
  MR_Box conv10_DontHoistVars_23;

  hlds__hlds_pred__pred_info_get_purity_2_p_0(PredInfo_8, &Var_45);
  succeeded = ((MR_Integer) 0 == Var_45);
  if (succeeded)
  {
    hlds__hlds_pred__proc_info_get_goal_2_p_0(STATE_VARIABLE_ProcInfo_0_35, &Body_11);
    hlds__hlds_pred__proc_info_get_headvars_2_p_0(STATE_VARIABLE_ProcInfo_0_35, &HeadVars_12);
    hlds__hlds_pred__proc_info_get_argmodes_2_p_0(STATE_VARIABLE_ProcInfo_0_35, &HeadVarModes_13);
    hlds__hlds_pred__proc_info_get_var_table_2_p_0(STATE_VARIABLE_ProcInfo_0_35, &VarTable_14);
    TypeInfo_7_47 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]);
    Var_46 = transform_hlds__loop_inv__used_vars_2_f_0(STATE_VARIABLE_ModuleInfo_0_37, Body_11);
    UniquelyUsedVars_15 = mercury__list__sort_and_remove_dups_1_f_0(TypeInfo_7_47, Var_46);
    TypeCtorInfo_22_57 = (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0);
    Var_55 = mercury__cord__empty_0_f_0(TypeCtorInfo_22_57);
    Var_56 = (MR_Word) ((MR_Unsigned) 0U);
    {
      GoalCandidates0_48 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
      MR_hl_field(0, GoalCandidates0_48, 0) = ((MR_Box) (STATE_VARIABLE_ModuleInfo_0_37));
      MR_hl_field(0, GoalCandidates0_48, 1) = ((MR_Box) (VarTable_14));
      MR_hl_field(0, GoalCandidates0_48, 2) = ((MR_Box) (Var_55));
      MR_hl_field(0, GoalCandidates0_48, 3) = ((MR_Box) (Var_56));
    }
    transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PredProcId_7, Body_11, GoalCandidates0_48, &GoalCandidates_49);
    RecCalls_53 = ((MR_Word) ((MR_hl_field(0, GoalCandidates_49, 3))));
    TypeInfo_23_58 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[1]);
    mercury__assoc_list__keys_and_values_3_p_0(TypeCtorInfo_22_57, TypeInfo_23_58, RecCalls_53, &RecCalls_17, &CandidateInvGoalsList_54);
    if ((CandidateInvGoalsList_54 == (MR_Word) ((MR_Unsigned) 0U)))
      InvGoals0_16 = (MR_Word) ((MR_Unsigned) 0U);
    else
    {
      MR_Word Goals_59 = ((MR_Word) ((MR_hl_field(1, CandidateInvGoalsList_54, 0))));
      MR_Word Goalss_60 = ((MR_Word) ((MR_hl_field(1, CandidateInvGoalsList_54, 1))));
      MR_Word Var_61;

      {
        Var_61 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
        MR_hl_field(0, Var_61, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_5[2]));
        MR_hl_field(0, Var_61, 1) = ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_1));
        MR_hl_field(0, Var_61, 2) = ((MR_Box) ((MR_Integer) 1));
        MR_hl_field(0, Var_61, 3) = ((MR_Box) (Goalss_60));
      }
      InvGoals0_16 = mercury__list__filter_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_61, Goals_59);
    }
    TypeInfo_16_68 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]);
    TypeCtorInfo_17_69 = (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0);
    TypeInfo_18_70 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[2]);
    {
      Var_65 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
      MR_hl_field(0, Var_65, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[3]));
      MR_hl_field(0, Var_65, 1) = ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_2));
      MR_hl_field(0, Var_65, 2) = ((MR_Box) ((MR_Integer) 1));
      MR_hl_field(0, Var_65, 3) = ((MR_Box) (STATE_VARIABLE_ModuleInfo_0_37));
    }
    MaybeInvArgs0_63 = mercury__list__map_corresponding_3_f_0(TypeInfo_16_68, TypeCtorInfo_17_69, TypeInfo_18_70, Var_65, HeadVars_12, HeadVarModes_13);
    TypeCtorInfo_22_71 = (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0);
    TypeInfo_23_72 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[3]);
    Var_66 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[4]);
    conv2_MaybeInvArgs_64 = mercury__list__foldl_3_f_0(TypeCtorInfo_22_71, TypeInfo_23_72, Var_66, RecCalls_17, ((MR_Box) (MaybeInvArgs0_63)));
    MaybeInvArgs_64 = ((MR_Word) (conv2_MaybeInvArgs_64));
    Var_67 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[5]);
    mercury__list__filter_map_3_p_0(TypeInfo_18_70, TypeInfo_16_68, Var_67, MaybeInvArgs_64, &InvArgs0_18);
    TypeInfo_42_42 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]);
    mercury__list__delete_elems_3_p_0(TypeInfo_42_42, InvArgs0_18, UniquelyUsedVars_15, &InvArgs_19);
    Var_74 = (MR_Word) ((MR_Unsigned) 0U);
    TypeCtorInfo_22_75 = (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0);
    TypeInfo_23_76 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[1]);
    TypeInfo_24_77 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]);
    {
      Var_73 = (MR_Word) MR_new_object(MR_Word, (6 * sizeof(MR_Word)), NULL, NULL);
      MR_hl_field(0, Var_73, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_6[0]));
      MR_hl_field(0, Var_73, 1) = ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_5));
      MR_hl_field(0, Var_73, 2) = ((MR_Box) ((MR_Integer) 3));
      MR_hl_field(0, Var_73, 3) = ((MR_Box) (STATE_VARIABLE_ModuleInfo_0_37));
      MR_hl_field(0, Var_73, 4) = ((MR_Box) (VarTable_14));
      MR_hl_field(0, Var_73, 5) = ((MR_Box) (UniquelyUsedVars_15));
    }
    mercury__list__foldl2_6_p_0(TypeCtorInfo_22_75, TypeInfo_23_76, TypeInfo_24_77, Var_73, InvGoals0_16, ((MR_Box) (Var_74)), &conv7_InvGoals1_20, ((MR_Box) (InvArgs_19)), &conv6_InvVars1_21);
    InvGoals1_20 = ((MR_Word) (conv7_InvGoals1_20));
    InvVars1_21 = ((MR_Word) (conv6_InvVars1_21));
    Var_79 = (MR_Word) ((MR_Unsigned) 0U);
    Var_80 = (MR_Word) ((MR_Unsigned) 0U);
    TypeCtorInfo_19_81 = (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0);
    TypeInfo_20_82 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[1]);
    TypeInfo_21_83 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]);
    {
      Var_78 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
      MR_hl_field(0, Var_78, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_7[0]));
      MR_hl_field(0, Var_78, 1) = ((MR_Box) (transform_hlds__loop_inv__hoist_loop_invariants_6_p_0_6));
      MR_hl_field(0, Var_78, 2) = ((MR_Box) ((MR_Integer) 2));
      MR_hl_field(0, Var_78, 3) = ((MR_Box) (STATE_VARIABLE_ModuleInfo_0_37));
      MR_hl_field(0, Var_78, 4) = ((MR_Box) (VarTable_14));
    }
    mercury__list__foldl2_6_p_0(TypeCtorInfo_19_81, TypeInfo_20_82, TypeInfo_21_83, Var_78, InvGoals1_20, ((MR_Box) (Var_79)), &conv11_DontHoistGoals_22, ((MR_Box) (Var_80)), &conv10_DontHoistVars_23);
    DontHoistGoals_22 = ((MR_Word) (conv11_DontHoistGoals_22));
    DontHoistVars_23 = ((MR_Word) (conv10_DontHoistVars_23));
    TypeCtorInfo_43_43 = (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0);
    mercury__list__delete_elems_3_p_0(TypeCtorInfo_43_43, InvGoals1_20, DontHoistGoals_22, &InvGoals_24);
    mercury__list__delete_elems_3_p_0(TypeInfo_42_42, InvVars1_21, DontHoistVars_23, &InvVars_25);
    succeeded = (InvGoals_24 != (MR_Word) ((MR_Unsigned) 0U));
  }
  if (succeeded)
  {
    MR_Word ComputedInvVars_28;
    MR_Word InitialInstMap_29;
    MR_Word InitialAuxInstMap_30;
    MR_Word AuxPredProcId_31;
    MR_Word Replacement_32;
    MR_Word AuxPredInfo_33;
    MR_Word AuxProcInfo_34;
    MR_Word STATE_VARIABLE_ModuleInfo_1_40;
    MR_Word STATE_VARIABLE_ModuleInfo_2_41;
    MR_Word GapInfo_87;
    MR_Word AuxBody_88;
    MR_Word AuxPredId_89;
    MR_Integer AuxProcId_90;
    MR_Word STATE_VARIABLE_AuxProcInfo_1_91;
    MR_Word STATE_VARIABLE_AuxProcInfo_2_93;
    MR_Word STATE_VARIABLE_AuxProcInfo_3_95;
    MR_Word STATE_VARIABLE_ModuleInfo_1_96;
    MR_Box conv13_InitialAuxInstMap_30;

    mercury__list__delete_elems_3_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), InvVars_25, InvArgs_19, &ComputedInvVars_28);
    hlds__hlds_proc_util__proc_info_get_initial_instmap_3_p_0(STATE_VARIABLE_ModuleInfo_0_37, STATE_VARIABLE_ProcInfo_0_35, &InitialInstMap_29);
    conv13_InitialAuxInstMap_30 = mercury__list__foldl_3_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&hlds__instmap__hlds__instmap__type_ctor_info_instmap_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[6]), InvGoals_24, ((MR_Box) (InitialInstMap_29)));
    InitialAuxInstMap_30 = ((MR_Word) (conv13_InitialAuxInstMap_30));
    transform_hlds__loop_inv__create_loop_inv_aux_pred_10_p_0(PredProcId_7, HeadVars_12, ComputedInvVars_28, InitialAuxInstMap_30, &AuxPredProcId_31, &Replacement_32, &AuxPredInfo_33, &AuxProcInfo_34, STATE_VARIABLE_ModuleInfo_0_37, &STATE_VARIABLE_ModuleInfo_1_40);
    {
      GapInfo_87 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
      MR_hl_field(0, GapInfo_87, 0) = ((MR_Box) (STATE_VARIABLE_ModuleInfo_1_40));
      MR_hl_field(0, GapInfo_87, 1) = ((MR_Box) (InvGoals_24));
      MR_hl_field(0, GapInfo_87, 2) = ((MR_Box) (PredProcId_7));
      MR_hl_field(0, GapInfo_87, 3) = ((MR_Box) (Replacement_32));
    }
    transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(GapInfo_87, Body_11, &AuxBody_88);
    AuxPredId_89 = ((MR_Word) ((MR_hl_field(0, AuxPredProcId_31, 0))));
    AuxProcId_90 = ((MR_Integer) ((MR_hl_field(0, AuxPredProcId_31, 1))));
    hlds__hlds_pred__proc_info_set_goal_3_p_0(AuxBody_88, AuxProcInfo_34, &STATE_VARIABLE_AuxProcInfo_1_91);
    hlds__quantification__requantify_proc_general_3_p_0((MR_Integer) 1, STATE_VARIABLE_AuxProcInfo_1_91, &STATE_VARIABLE_AuxProcInfo_2_93);
    check_hlds__recompute_instmap_deltas__recompute_instmap_delta_proc_5_p_0((MR_Integer) 1, STATE_VARIABLE_AuxProcInfo_2_93, &STATE_VARIABLE_AuxProcInfo_3_95, STATE_VARIABLE_ModuleInfo_1_40, &STATE_VARIABLE_ModuleInfo_1_96);
    hlds__hlds_module__module_info_set_pred_proc_info_6_p_0(AuxPredId_89, AuxProcId_90, AuxPredInfo_33, STATE_VARIABLE_AuxProcInfo_3_95, STATE_VARIABLE_ModuleInfo_1_96, &STATE_VARIABLE_ModuleInfo_2_41);
    transform_hlds__loop_inv__gen_out_proc_8_p_0(PredProcId_7, PredInfo_8, STATE_VARIABLE_ProcInfo_0_35, STATE_VARIABLE_ProcInfo_36, Replacement_32, Body_11, STATE_VARIABLE_ModuleInfo_2_41, STATE_VARIABLE_ModuleInfo_38);
  }
  else
  {
    *STATE_VARIABLE_ModuleInfo_38 = STATE_VARIABLE_ModuleInfo_0_37;
    *STATE_VARIABLE_ProcInfo_36 = STATE_VARIABLE_ProcInfo_0_35;
  }
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_9(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv8_LambdaHeadVar__2_9;

  conv8_LambdaHeadVar__2_9 = transform_hlds__loop_inv__IntroducedFrom__func__case_goals__1142__1_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv8_LambdaHeadVar__2_9));
  return wrapper_arg_2;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_8(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv7_UsedVars_6;

  conv7_UsedVars_6 = transform_hlds__loop_inv__used_vars_2_f_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv7_UsedVars_6));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_7(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv6_X_4;

  succeeded = transform_hlds__loop_inv__uniquely_used_args_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv6_X_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv6_X_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_6(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv5_X_4;

  succeeded = transform_hlds__loop_inv__uniquely_used_args_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv5_X_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv5_X_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_5(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv4_UsedVars_6;

  conv4_UsedVars_6 = transform_hlds__loop_inv__used_vars_2_f_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv4_UsedVars_6));
  return wrapper_arg_2;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_4(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv3_UsedVars_6;

  conv3_UsedVars_6 = transform_hlds__loop_inv__used_vars_2_f_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv3_UsedVars_6));
  return wrapper_arg_2;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv2_HeadVar__2_2;

  conv2_HeadVar__2_2 = hlds__hlds_goal__foreign_arg_var_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv2_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_Box MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1)
{
  MR_Box wrapper_arg_2;
  MR_Box closure = closure_arg;
  MR_Word conv1_HeadVar__2_2;

  conv1_HeadVar__2_2 = hlds__hlds_goal__foreign_arg_var_1_f_0(((MR_Word) (wrapper_arg_1)));
  wrapper_arg_2 = ((MR_Box) (conv1_HeadVar__2_2));
  return wrapper_arg_2;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box * wrapper_arg_3)
{
  MR_bool succeeded;
  MR_Box closure = closure_arg;
  MR_Word conv0_X_4;

  succeeded = transform_hlds__loop_inv__uniquely_used_args_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)), &conv0_X_4);
  if (succeeded)
  {
    *wrapper_arg_3 = ((MR_Box) (conv0_X_4));
    succeeded = MR_TRUE;
  }
  return succeeded;
}

static MR_Word MR_CALL 
transform_hlds__loop_inv__used_vars_2_f_0(
  MR_Word ModuleInfo_4,
  MR_Word Goal_5)
{
  while (MR_TRUE)
  {
    MR_bool succeeded;
    MR_Word UsedVars_6;
    MR_Word GoalExpr_7 = ((MR_Word) ((MR_hl_field(0, Goal_5, 0))));

    // setup for model_det tailcalls optimized into a loop
    ;
    switch (MR_tag((MR_Word) GoalExpr_7)) {
      default: /*NOTREACHED*/ MR_assert(0);
      case (MR_Integer) 0:
        {
          MR_Word SubGoal_41 = (MR_Word) ((MR_Word) (GoalExpr_7));
          MR_Word next_value_of_Goal_5 = SubGoal_41;

          // direct tailcall eliminated
          ;
          Goal_5 = next_value_of_Goal_5;
          continue;
        }
        break;
      case (MR_Integer) 1:
        UsedVars_6 = (MR_Word) ((MR_Unsigned) 0U);
        break;
      case (MR_Integer) 2:
        {
          MR_Word PredId_9 = ((MR_Word) ((MR_hl_field(2, GoalExpr_7, 0))));
          MR_Integer ProcId_10 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_7, 1))));
          MR_Word Args_11 = ((MR_Word) ((MR_hl_field(2, GoalExpr_7, 2))));
          MR_Word Var_44;
          MR_Word Var_45;
          MR_Word ProcInfo_108;
          MR_Word Var_107;

          {
            Var_44 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
            MR_hl_field(0, Var_44, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
            MR_hl_field(0, Var_44, 1) = ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_7));
            MR_hl_field(0, Var_44, 2) = ((MR_Box) ((MR_Integer) 1));
            MR_hl_field(0, Var_44, 3) = ((MR_Box) (ModuleInfo_4));
          }
          hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_4, PredId_9, ProcId_10, &Var_107, &ProcInfo_108);
          hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_108, &Var_45);
          mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_44, Args_11, Var_45, &UsedVars_6);
        }
        break;
      case (MR_Integer) 3:
        switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_7, 0))))) {
          default: /*NOTREACHED*/ MR_assert(0);
          case (MR_Integer) 0:
            {
              MR_Word Modes_16 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 3))));
              MR_Word Var_46;
              MR_Word Args_65 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));

              {
                Var_46 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_46, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
                MR_hl_field(0, Var_46, 1) = ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_6));
                MR_hl_field(0, Var_46, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_46, 3) = ((MR_Box) (ModuleInfo_4));
              }
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_46, Args_65, Modes_16, &UsedVars_6);
            }
            break;
          case (MR_Integer) 1:
            {
              MR_Word ForeignArgs_20 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 4))));
              MR_Word ExtraForeignArgs_21 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 5))));
              MR_Word UsedArgVars_24;
              MR_Word UsedExtraArgVars_25;
              MR_Word Var_47;
              MR_Word Var_48;
              MR_Word Var_49;
              MR_Word PredId_66 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
              MR_Integer ProcId_67 = ((MR_Integer) ((MR_hl_field(3, GoalExpr_7, 3))));
              MR_Word ProcInfo_106;
              MR_Word Var_105;

              {
                Var_47 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_47, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[2]));
                MR_hl_field(0, Var_47, 1) = ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_1));
                MR_hl_field(0, Var_47, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_47, 3) = ((MR_Box) (ModuleInfo_4));
              }
              Var_48 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_foreign_arg_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[1]), ForeignArgs_20);
              hlds__hlds_module__module_info_pred_proc_info_5_p_0(ModuleInfo_4, PredId_66, ProcId_67, &Var_105, &ProcInfo_106);
              hlds__hlds_pred__proc_info_get_argmodes_2_p_0(ProcInfo_106, &Var_49);
              mercury__list__filter_map_corresponding_4_p_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&parse_tree__prog_data__parse_tree__prog_data__type_ctor_info_mer_mode_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_47, Var_48, Var_49, &UsedArgVars_24);
              UsedExtraArgVars_25 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_foreign_arg_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[2]), ExtraForeignArgs_21);
              UsedVars_6 = mercury__list__f_43_43_2_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), UsedArgVars_24, UsedExtraArgVars_25);
            }
            break;
          case (MR_Integer) 2:
            {
              MR_Word Conjuncts_32 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
              MR_Word Var_52;
              MR_Word Var_53;

              {
                Var_53 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_53, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[2]));
                MR_hl_field(0, Var_53, 1) = ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_4));
                MR_hl_field(0, Var_53, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_53, 3) = ((MR_Box) (ModuleInfo_4));
              }
              Var_52 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]), Var_53, Conjuncts_32);
              UsedVars_6 = mercury__list__condense_1_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_52);
            }
            break;
          case (MR_Integer) 3:
            {
              MR_Word Disjuncts_33 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 1))));
              MR_Word Var_54;
              MR_Word Var_55;

              {
                Var_55 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_55, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[2]));
                MR_hl_field(0, Var_55, 1) = ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_5));
                MR_hl_field(0, Var_55, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_55, 3) = ((MR_Box) (ModuleInfo_4));
              }
              Var_54 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]), Var_55, Disjuncts_33);
              UsedVars_6 = mercury__list__condense_1_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_54);
            }
            break;
          case (MR_Integer) 4:
            {
              MR_Word Cases_36 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 3))));
              MR_Word Var_56;
              MR_Word Var_57;
              MR_Word Var_58;

              {
                Var_57 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                MR_hl_field(0, Var_57, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[2]));
                MR_hl_field(0, Var_57, 1) = ((MR_Box) (transform_hlds__loop_inv__used_vars_2_f_0_8));
                MR_hl_field(0, Var_57, 2) = ((MR_Box) ((MR_Integer) 1));
                MR_hl_field(0, Var_57, 3) = ((MR_Box) (ModuleInfo_4));
              }
              Var_58 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_2[3]), Cases_36);
              Var_56 = mercury__list__map_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]), Var_57, Var_58);
              UsedVars_6 = mercury__list__condense_1_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_56);
            }
            break;
          case (MR_Integer) 5:
            {
              MR_Word SubGoal_68 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
              MR_Word next_value_of_Goal_5 = SubGoal_68;

              // direct tailcall eliminated
              ;
              Goal_5 = next_value_of_Goal_5;
              continue;
            }
            break;
          case (MR_Integer) 6:
            {
              MR_Word Cond_38 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
              MR_Word Then_39 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 3))));
              MR_Word Else_40 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 4))));
              MR_Word Var_59;
              MR_Word Var_60;
              MR_Word Var_61;
              MR_Word Var_62;

              Var_59 = transform_hlds__loop_inv__used_vars_2_f_0(ModuleInfo_4, Cond_38);
              Var_61 = transform_hlds__loop_inv__used_vars_2_f_0(ModuleInfo_4, Then_39);
              Var_62 = transform_hlds__loop_inv__used_vars_2_f_0(ModuleInfo_4, Else_40);
              Var_60 = mercury__list__f_43_43_2_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_61, Var_62);
              UsedVars_6 = mercury__list__f_43_43_2_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), Var_59, Var_60);
            }
            break;
          case (MR_Integer) 7:
            mercury__require__unexpected_2_p_0((MR_String) "function \140transform_hlds.loop_inv.used_vars\'/2", (MR_String) "shorthand");
            break;
        }
        break;
    }
    return UsedVars_6;
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_8_p_0(
  MR_Word PredProcId_9,
  MR_Word PredInfo0_10,
  MR_Word ProcInfo0_11,
  MR_Word * ProcInfo_12,
  MR_Word Replacement_13,
  MR_Word Body0_14,
  MR_Word STATE_VARIABLE_ModuleInfo_0_24,
  MR_Word * STATE_VARIABLE_ModuleInfo_25)
{
  MR_Word Body_16;
  MR_Word PredId_17;
  MR_Integer ProcId_18;
  MR_Word VarTable_19;
  MR_Word HeadVars_20;
  MR_Word RttiVarMaps_21;
  MR_Word ProcInfo1_22;
  MR_Word ProcInfo2_23;
  MR_Word STATE_VARIABLE_ModuleInfo_1_28;

  transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PredProcId_9, Replacement_13, Body0_14, &Body_16);
  PredId_17 = ((MR_Word) ((MR_hl_field(0, PredProcId_9, 0))));
  ProcId_18 = ((MR_Integer) ((MR_hl_field(0, PredProcId_9, 1))));
  hlds__hlds_pred__proc_info_get_var_table_2_p_0(ProcInfo0_11, &VarTable_19);
  hlds__hlds_pred__proc_info_get_headvars_2_p_0(ProcInfo0_11, &HeadVars_20);
  hlds__hlds_pred__proc_info_get_rtti_varmaps_2_p_0(ProcInfo0_11, &RttiVarMaps_21);
  hlds__hlds_pred__proc_info_set_body_6_p_0(VarTable_19, HeadVars_20, Body_16, RttiVarMaps_21, ProcInfo0_11, &ProcInfo1_22);
  hlds__quantification__requantify_proc_general_3_p_0((MR_Integer) 1, ProcInfo1_22, &ProcInfo2_23);
  check_hlds__recompute_instmap_deltas__recompute_instmap_delta_proc_5_p_0((MR_Integer) 1, ProcInfo2_23, ProcInfo_12, STATE_VARIABLE_ModuleInfo_0_24, &STATE_VARIABLE_ModuleInfo_1_28);
  hlds__hlds_module__module_info_set_pred_proc_info_6_p_0(PredId_17, ProcId_18, PredInfo0_10, *ProcInfo_12, STATE_VARIABLE_ModuleInfo_1_28, STATE_VARIABLE_ModuleInfo_25);
}

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_Box closure = closure_arg;
  MR_Word conv2_AuxCase_8;

  transform_hlds__loop_inv__gen_out_proc_case_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), &conv2_AuxCase_8);
  *wrapper_arg_2 = ((MR_Box) (conv2_AuxCase_8));
}

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_Box closure = closure_arg;
  MR_Word conv1_AuxGoal_8;

  transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), &conv1_AuxGoal_8);
  *wrapper_arg_2 = ((MR_Box) (conv1_AuxGoal_8));
}

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_Box closure = closure_arg;
  MR_Word conv0_AuxGoal_8;

  transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) ((MR_hl_field(0, closure, 4)))), ((MR_Word) (wrapper_arg_1)), &conv0_AuxGoal_8);
  *wrapper_arg_2 = ((MR_Box) (conv0_AuxGoal_8));
}

static void MR_CALL 
transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(
  MR_Word PPId_5,
  MR_Word Replacement_6,
  MR_Word Goal_7,
  MR_Word * AuxGoal_8)
{
  MR_bool succeeded;
  MR_Word GoalExpr_9 = ((MR_Word) ((MR_hl_field(0, Goal_7, 0))));
  MR_Word GoalInfo_10 = ((MR_Word) ((MR_hl_field(0, Goal_7, 1))));

  switch (MR_tag((MR_Word) GoalExpr_9)) {
    default: /*NOTREACHED*/ MR_assert(0);
    case (MR_Integer) 0:
      {
        MR_Word SubGoal_44 = (MR_Word) ((MR_Word) (GoalExpr_9));
        MR_Word AuxSubGoal_45;
        MR_Word AuxGoalExpr_62;

        transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PPId_5, Replacement_6, SubGoal_44, &AuxSubGoal_45);
        AuxGoalExpr_62 = (MR_Word) ((MR_Word) (AuxSubGoal_45));
        {
          MR_Word base;
          base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
          *AuxGoal_8 = base;
          MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_62));
          MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_10));
        }
      }
      break;
    case (MR_Integer) 1:
      *AuxGoal_8 = Goal_7;
      break;
    case (MR_Integer) 2:
      {
        MR_Word PredId_11 = ((MR_Word) ((MR_hl_field(2, GoalExpr_9, 0))));
        MR_Integer ProcId_12 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_9, 1))));
        MR_Word Var_76 = ((MR_Word) ((MR_hl_field(0, PPId_5, 0))));
        MR_Integer Var_77 = ((MR_Integer) ((MR_hl_field(0, PPId_5, 1))));

        succeeded = hlds__hlds_pred____Unify____pred_id_0_0(PredId_11, Var_76);
        if (succeeded)
          succeeded = (ProcId_12 == Var_77);
        if (succeeded)
        {
          MR_Word ReplacementExpr_80 = ((MR_Word) ((MR_hl_field(0, Replacement_6, 0))));
          MR_Word CallExpr_82 = ((MR_Word) ((MR_hl_field(0, Goal_7, 0))));
          MR_Word CallInfo_83 = ((MR_Word) ((MR_hl_field(0, Goal_7, 1))));
          MR_Word AuxCallGoalExpr_87;
          MR_Word ReplacementArgs0_84;
          MR_Word Args0_85;
          MR_Word Args_86;
          MR_Word Var_100;
          MR_Integer Var_101;
          MR_Word Var_103;
          MR_Word Var_104;
          MR_Word Var_105;

          succeeded = ((MR_tag((MR_Word) ReplacementExpr_80)) == (MR_Integer) 2);
          if (succeeded)
          {
            ReplacementArgs0_84 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_80, 2))));
            succeeded = ((MR_tag((MR_Word) CallExpr_82)) == (MR_Integer) 2);
            if (succeeded)
            {
              Args0_85 = ((MR_Word) ((MR_hl_field(2, CallExpr_82, 2))));
              transform_hlds__loop_inv__f_85_110_117_115_101_100_65_114_103_115_95_95_112_114_101_100_95_95_114_101_112_108_97_99_101_95_105_110_105_116_105_97_108_95_97_114_103_115_95_95_91_49_93_95_48_3_p_0(Args0_85, ReplacementArgs0_84, &Args_86);
              Var_100 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_80, 0))));
              Var_101 = ((MR_Integer) ((MR_hl_field(2, ReplacementExpr_80, 1))));
              Var_103 = ((MR_Unsigned) ((MR_hl_field(2, ReplacementExpr_80, 3))) & (MR_Integer) 1);
              Var_104 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_80, 4))));
              Var_105 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_80, 5))));
              {
                AuxCallGoalExpr_87 = (MR_Word) MR_mkword(2, MR_new_object(MR_Word, (6 * sizeof(MR_Word)), NULL, NULL));
                MR_hl_field(2, AuxCallGoalExpr_87, 0) = ((MR_Box) (Var_100));
                MR_hl_field(2, AuxCallGoalExpr_87, 1) = ((MR_Box) (Var_101));
                MR_hl_field(2, AuxCallGoalExpr_87, 2) = ((MR_Box) (Args_86));
                MR_hl_field(2, AuxCallGoalExpr_87, 3) = (MR_Box) ((MR_Unsigned) (Var_103));
                MR_hl_field(2, AuxCallGoalExpr_87, 4) = ((MR_Box) (Var_104));
                MR_hl_field(2, AuxCallGoalExpr_87, 5) = ((MR_Box) (Var_105));
              }
              succeeded = MR_TRUE;
            }
          }
          if (succeeded)
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_8 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxCallGoalExpr_87));
              MR_hl_field(0, base, 1) = ((MR_Box) (CallInfo_83));
            }
          else
            {
              mercury__require__unexpected_2_p_0((MR_String) "predicate \140transform_hlds.loop_inv.gen_aux_call\'/3", (MR_String) "args not both ordinary calls");
              return;
            }
        }
        else
          *AuxGoal_8 = Goal_7;
      }
      break;
    case (MR_Integer) 3:
      switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_9, 0))))) {
        default: /*NOTREACHED*/ MR_assert(0);
        case (MR_Integer) 0:
        case (MR_Integer) 1:
          *AuxGoal_8 = Goal_7;
          break;
        case (MR_Integer) 2:
          {
            MR_Word ConjType_34 = ((MR_Unsigned) ((MR_hl_field(3, GoalExpr_9, 1))) & (MR_Integer) 1);
            MR_Word Conjuncts_35 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 2))));
            MR_Word AuxConjuncts_36;
            MR_Word AuxGoalExpr_37;
            MR_Word Var_55;

            {
              Var_55 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_55, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[0]));
              MR_hl_field(0, Var_55, 1) = ((MR_Box) (transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_1));
              MR_hl_field(0, Var_55, 2) = ((MR_Box) ((MR_Integer) 2));
              MR_hl_field(0, Var_55, 3) = ((MR_Box) (PPId_5));
              MR_hl_field(0, Var_55, 4) = ((MR_Box) (Replacement_6));
            }
            mercury__list__map_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_55, Conjuncts_35, &AuxConjuncts_36);
            {
              AuxGoalExpr_37 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_37, 0) = ((MR_Box) ((MR_Unsigned) 2U));
              MR_hl_field(3, AuxGoalExpr_37, 1) = (MR_Box) ((MR_Unsigned) (ConjType_34));
              MR_hl_field(3, AuxGoalExpr_37, 2) = ((MR_Box) (AuxConjuncts_36));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_8 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_37));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_10));
            }
          }
          break;
        case (MR_Integer) 3:
          {
            MR_Word Disjuncts_38 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 1))));
            MR_Word AuxDisjuncts_39;
            MR_Word Var_56;
            MR_Word AuxGoalExpr_60;

            {
              Var_56 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_56, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[0]));
              MR_hl_field(0, Var_56, 1) = ((MR_Box) (transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_2));
              MR_hl_field(0, Var_56, 2) = ((MR_Box) ((MR_Integer) 2));
              MR_hl_field(0, Var_56, 3) = ((MR_Box) (PPId_5));
              MR_hl_field(0, Var_56, 4) = ((MR_Box) (Replacement_6));
            }
            mercury__list__map_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_56, Disjuncts_38, &AuxDisjuncts_39);
            {
              AuxGoalExpr_60 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_60, 0) = ((MR_Box) ((MR_Unsigned) 3U));
              MR_hl_field(3, AuxGoalExpr_60, 1) = ((MR_Box) (AuxDisjuncts_39));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_8 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_60));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_10));
            }
          }
          break;
        case (MR_Integer) 4:
          {
            MR_Word Var_40 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 1))));
            MR_Word CanFail_41 = ((MR_Unsigned) ((MR_hl_field(3, GoalExpr_9, 2))) & (MR_Integer) 1);
            MR_Word Cases_42 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 3))));
            MR_Word AuxCases_43;
            MR_Word Var_57;
            MR_Word AuxGoalExpr_61;

            {
              Var_57 = (MR_Word) MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_57, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_4[1]));
              MR_hl_field(0, Var_57, 1) = ((MR_Box) (transform_hlds__loop_inv__gen_out_proc_goal_4_p_0_3));
              MR_hl_field(0, Var_57, 2) = ((MR_Box) ((MR_Integer) 2));
              MR_hl_field(0, Var_57, 3) = ((MR_Box) (PPId_5));
              MR_hl_field(0, Var_57, 4) = ((MR_Box) (Replacement_6));
            }
            mercury__list__map_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0), Var_57, Cases_42, &AuxCases_43);
            {
              AuxGoalExpr_61 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_61, 0) = ((MR_Box) ((MR_Unsigned) 4U));
              MR_hl_field(3, AuxGoalExpr_61, 1) = ((MR_Box) (Var_40));
              MR_hl_field(3, AuxGoalExpr_61, 2) = (MR_Box) ((MR_Unsigned) (CanFail_41));
              MR_hl_field(3, AuxGoalExpr_61, 3) = ((MR_Box) (AuxCases_43));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_8 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_61));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_10));
            }
          }
          break;
        case (MR_Integer) 5:
          {
            MR_Word Reason_46 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 1))));
            MR_Word AuxGoalExpr_63;
            MR_Word SubGoal_64 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 2))));
            MR_Word AuxSubGoal_65;

            transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PPId_5, Replacement_6, SubGoal_64, &AuxSubGoal_65);
            {
              AuxGoalExpr_63 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_63, 0) = ((MR_Box) ((MR_Unsigned) 5U));
              MR_hl_field(3, AuxGoalExpr_63, 1) = ((MR_Box) (Reason_46));
              MR_hl_field(3, AuxGoalExpr_63, 2) = ((MR_Box) (AuxSubGoal_65));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_8 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_63));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_10));
            }
          }
          break;
        case (MR_Integer) 6:
          {
            MR_Word Vars_47 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 1))));
            MR_Word Cond_48 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 2))));
            MR_Word Then_49 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 3))));
            MR_Word Else_50 = ((MR_Word) ((MR_hl_field(3, GoalExpr_9, 4))));
            MR_Word AuxCond_51;
            MR_Word AuxThen_52;
            MR_Word AuxElse_53;
            MR_Word AuxGoalExpr_66;

            transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PPId_5, Replacement_6, Cond_48, &AuxCond_51);
            transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PPId_5, Replacement_6, Then_49, &AuxThen_52);
            transform_hlds__loop_inv__gen_out_proc_goal_4_p_0(PPId_5, Replacement_6, Else_50, &AuxElse_53);
            {
              AuxGoalExpr_66 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_66, 0) = ((MR_Box) ((MR_Unsigned) 6U));
              MR_hl_field(3, AuxGoalExpr_66, 1) = ((MR_Box) (Vars_47));
              MR_hl_field(3, AuxGoalExpr_66, 2) = ((MR_Box) (AuxCond_51));
              MR_hl_field(3, AuxGoalExpr_66, 3) = ((MR_Box) (AuxThen_52));
              MR_hl_field(3, AuxGoalExpr_66, 4) = ((MR_Box) (AuxElse_53));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_8 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_66));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_10));
            }
          }
          break;
        case (MR_Integer) 7:
          {
            mercury__require__unexpected_2_p_0((MR_String) "predicate \140transform_hlds.loop_inv.gen_out_proc_goal\'/4", (MR_String) "shorthand");
            return;
          }
          break;
      }
      break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_3(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_Box closure = closure_arg;
  MR_Word conv2_AuxCase_6;

  transform_hlds__loop_inv__gen_aux_proc_case_3_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), &conv2_AuxCase_6);
  *wrapper_arg_2 = ((MR_Box) (conv2_AuxCase_6));
}

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_2(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_Box closure = closure_arg;
  MR_Word conv1_AuxGoal_6;

  transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), &conv1_AuxGoal_6);
  *wrapper_arg_2 = ((MR_Box) (conv1_AuxGoal_6));
}

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_1(
  MR_Box closure_arg,
  MR_Box wrapper_arg_1,
  MR_Box * wrapper_arg_2)
{
  MR_Box closure = closure_arg;
  MR_Word conv0_AuxGoal_6;

  transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(((MR_Word) ((MR_hl_field(0, closure, 3)))), ((MR_Word) (wrapper_arg_1)), &conv0_AuxGoal_6);
  *wrapper_arg_2 = ((MR_Box) (conv0_AuxGoal_6));
}

static void MR_CALL 
transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(
  MR_Word Info_4,
  MR_Word Goal_5,
  MR_Word * AuxGoal_6)
{
  MR_bool succeeded;
  MR_Word GoalExpr_7 = ((MR_Word) ((MR_hl_field(0, Goal_5, 0))));
  MR_Word GoalInfo_8 = ((MR_Word) ((MR_hl_field(0, Goal_5, 1))));

  switch (MR_tag((MR_Word) GoalExpr_7)) {
    default: /*NOTREACHED*/ MR_assert(0);
    case (MR_Integer) 0:
      {
        MR_Word SubGoal_42 = (MR_Word) ((MR_Word) (GoalExpr_7));
        MR_Word AuxSubGoal_43;
        MR_Word AuxGoalExpr_62;

        transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(Info_4, SubGoal_42, &AuxSubGoal_43);
        AuxGoalExpr_62 = (MR_Word) ((MR_Word) (AuxSubGoal_43));
        {
          MR_Word base;
          base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
          *AuxGoal_6 = base;
          MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_62));
          MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_8));
        }
      }
      break;
    case (MR_Integer) 1:
      {
        MR_Word Var_84 = ((MR_Word) ((MR_hl_field(0, Info_4, 1))));

        succeeded = transform_hlds__loop_inv__invariant_goal_2_p_0(Var_84, Goal_5);
        if (succeeded)
          *AuxGoal_6 = hlds__make_goal__true_goal_0_f_0();
        else
          *AuxGoal_6 = Goal_5;
      }
      break;
    case (MR_Integer) 2:
      {
        MR_Word PredId_9 = ((MR_Word) ((MR_hl_field(2, GoalExpr_7, 0))));
        MR_Integer ProcId_10 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_7, 1))));
        MR_Word Var_53;
        MR_Word Var_82 = ((MR_Word) ((MR_hl_field(0, Info_4, 2))));

        {
          Var_53 = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
          MR_hl_field(0, Var_53, 0) = ((MR_Box) (PredId_9));
          MR_hl_field(0, Var_53, 1) = ((MR_Box) (ProcId_10));
        }
        succeeded = hlds__hlds_pred____Unify____pred_proc_id_0_0(Var_53, Var_82);
        if (succeeded)
        {
          MR_Word Var_54 = ((MR_Word) ((MR_hl_field(0, Info_4, 3))));
          MR_Word ReplacementExpr_88 = ((MR_Word) ((MR_hl_field(0, Var_54, 0))));
          MR_Word CallExpr_90 = ((MR_Word) ((MR_hl_field(0, Goal_5, 0))));
          MR_Word CallInfo_91 = ((MR_Word) ((MR_hl_field(0, Goal_5, 1))));
          MR_Word AuxCallGoalExpr_95;
          MR_Word ReplacementArgs0_92;
          MR_Word Args0_93;
          MR_Word Args_94;
          MR_Word Var_108;
          MR_Integer Var_109;
          MR_Word Var_111;
          MR_Word Var_112;
          MR_Word Var_113;

          succeeded = ((MR_tag((MR_Word) ReplacementExpr_88)) == (MR_Integer) 2);
          if (succeeded)
          {
            ReplacementArgs0_92 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_88, 2))));
            succeeded = ((MR_tag((MR_Word) CallExpr_90)) == (MR_Integer) 2);
            if (succeeded)
            {
              Args0_93 = ((MR_Word) ((MR_hl_field(2, CallExpr_90, 2))));
              transform_hlds__loop_inv__f_85_110_117_115_101_100_65_114_103_115_95_95_112_114_101_100_95_95_114_101_112_108_97_99_101_95_105_110_105_116_105_97_108_95_97_114_103_115_95_95_91_49_93_95_48_3_p_0(Args0_93, ReplacementArgs0_92, &Args_94);
              Var_108 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_88, 0))));
              Var_109 = ((MR_Integer) ((MR_hl_field(2, ReplacementExpr_88, 1))));
              Var_111 = ((MR_Unsigned) ((MR_hl_field(2, ReplacementExpr_88, 3))) & (MR_Integer) 1);
              Var_112 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_88, 4))));
              Var_113 = ((MR_Word) ((MR_hl_field(2, ReplacementExpr_88, 5))));
              {
                AuxCallGoalExpr_95 = (MR_Word) MR_mkword(2, MR_new_object(MR_Word, (6 * sizeof(MR_Word)), NULL, NULL));
                MR_hl_field(2, AuxCallGoalExpr_95, 0) = ((MR_Box) (Var_108));
                MR_hl_field(2, AuxCallGoalExpr_95, 1) = ((MR_Box) (Var_109));
                MR_hl_field(2, AuxCallGoalExpr_95, 2) = ((MR_Box) (Args_94));
                MR_hl_field(2, AuxCallGoalExpr_95, 3) = (MR_Box) ((MR_Unsigned) (Var_111));
                MR_hl_field(2, AuxCallGoalExpr_95, 4) = ((MR_Box) (Var_112));
                MR_hl_field(2, AuxCallGoalExpr_95, 5) = ((MR_Box) (Var_113));
              }
              succeeded = MR_TRUE;
            }
          }
          if (succeeded)
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_6 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxCallGoalExpr_95));
              MR_hl_field(0, base, 1) = ((MR_Box) (CallInfo_91));
            }
          else
            {
              mercury__require__unexpected_2_p_0((MR_String) "predicate \140transform_hlds.loop_inv.gen_aux_call\'/3", (MR_String) "args not both ordinary calls");
              return;
            }
        }
        else
        {
          MR_Word Var_115 = ((MR_Word) ((MR_hl_field(0, Info_4, 1))));

          succeeded = transform_hlds__loop_inv__invariant_goal_2_p_0(Var_115, Goal_5);
          if (succeeded)
            *AuxGoal_6 = hlds__make_goal__true_goal_0_f_0();
          else
            *AuxGoal_6 = Goal_5;
        }
      }
      break;
    case (MR_Integer) 3:
      switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_7, 0))))) {
        default: /*NOTREACHED*/ MR_assert(0);
        case (MR_Integer) 0:
        case (MR_Integer) 1:
          {
            MR_Word Var_84 = ((MR_Word) ((MR_hl_field(0, Info_4, 1))));

            succeeded = transform_hlds__loop_inv__invariant_goal_2_p_0(Var_84, Goal_5);
            if (succeeded)
              *AuxGoal_6 = hlds__make_goal__true_goal_0_f_0();
            else
              *AuxGoal_6 = Goal_5;
          }
          break;
        case (MR_Integer) 2:
          {
            MR_Word ConjType_32 = ((MR_Unsigned) ((MR_hl_field(3, GoalExpr_7, 1))) & (MR_Integer) 1);
            MR_Word Conjuncts_33 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
            MR_Word AuxConjuncts_34;
            MR_Word AuxGoalExpr_35;
            MR_Word Var_55;

            {
              Var_55 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_55, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[0]));
              MR_hl_field(0, Var_55, 1) = ((MR_Box) (transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_1));
              MR_hl_field(0, Var_55, 2) = ((MR_Box) ((MR_Integer) 1));
              MR_hl_field(0, Var_55, 3) = ((MR_Box) (Info_4));
            }
            mercury__list__map_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_55, Conjuncts_33, &AuxConjuncts_34);
            {
              AuxGoalExpr_35 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_35, 0) = ((MR_Box) ((MR_Unsigned) 2U));
              MR_hl_field(3, AuxGoalExpr_35, 1) = (MR_Box) ((MR_Unsigned) (ConjType_32));
              MR_hl_field(3, AuxGoalExpr_35, 2) = ((MR_Box) (AuxConjuncts_34));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_6 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_35));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_8));
            }
          }
          break;
        case (MR_Integer) 3:
          {
            MR_Word Disjuncts_36 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 1))));
            MR_Word AuxDisjuncts_37;
            MR_Word Var_56;
            MR_Word AuxGoalExpr_60;

            {
              Var_56 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_56, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[0]));
              MR_hl_field(0, Var_56, 1) = ((MR_Box) (transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_2));
              MR_hl_field(0, Var_56, 2) = ((MR_Box) ((MR_Integer) 1));
              MR_hl_field(0, Var_56, 3) = ((MR_Box) (Info_4));
            }
            mercury__list__map_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_56, Disjuncts_36, &AuxDisjuncts_37);
            {
              AuxGoalExpr_60 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_60, 0) = ((MR_Box) ((MR_Unsigned) 3U));
              MR_hl_field(3, AuxGoalExpr_60, 1) = ((MR_Box) (AuxDisjuncts_37));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_6 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_60));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_8));
            }
          }
          break;
        case (MR_Integer) 4:
          {
            MR_Word Var_38 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 1))));
            MR_Word CanFail_39 = ((MR_Unsigned) ((MR_hl_field(3, GoalExpr_7, 2))) & (MR_Integer) 1);
            MR_Word Cases_40 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 3))));
            MR_Word AuxCases_41;
            MR_Word Var_57;
            MR_Word AuxGoalExpr_61;

            {
              Var_57 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, Var_57, 0) = ((MR_Box) (&transform_hlds__loop_inv_scalar_common_3[1]));
              MR_hl_field(0, Var_57, 1) = ((MR_Box) (transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0_3));
              MR_hl_field(0, Var_57, 2) = ((MR_Box) ((MR_Integer) 1));
              MR_hl_field(0, Var_57, 3) = ((MR_Box) (Info_4));
            }
            mercury__list__map_3_p_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0), (MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_case_0), Var_57, Cases_40, &AuxCases_41);
            {
              AuxGoalExpr_61 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_61, 0) = ((MR_Box) ((MR_Unsigned) 4U));
              MR_hl_field(3, AuxGoalExpr_61, 1) = ((MR_Box) (Var_38));
              MR_hl_field(3, AuxGoalExpr_61, 2) = (MR_Box) ((MR_Unsigned) (CanFail_39));
              MR_hl_field(3, AuxGoalExpr_61, 3) = ((MR_Box) (AuxCases_41));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_6 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_61));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_8));
            }
          }
          break;
        case (MR_Integer) 5:
          {
            MR_Word Reason_44 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 1))));
            MR_Word AuxGoalExpr_63;
            MR_Word SubGoal_64 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
            MR_Word AuxSubGoal_65;

            transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(Info_4, SubGoal_64, &AuxSubGoal_65);
            {
              AuxGoalExpr_63 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_63, 0) = ((MR_Box) ((MR_Unsigned) 5U));
              MR_hl_field(3, AuxGoalExpr_63, 1) = ((MR_Box) (Reason_44));
              MR_hl_field(3, AuxGoalExpr_63, 2) = ((MR_Box) (AuxSubGoal_65));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_6 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_63));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_8));
            }
          }
          break;
        case (MR_Integer) 6:
          {
            MR_Word Vars_45 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 1))));
            MR_Word Cond_46 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 2))));
            MR_Word Then_47 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 3))));
            MR_Word Else_48 = ((MR_Word) ((MR_hl_field(3, GoalExpr_7, 4))));
            MR_Word AuxCond_49;
            MR_Word AuxThen_50;
            MR_Word AuxElse_51;
            MR_Word AuxGoalExpr_66;

            transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(Info_4, Cond_46, &AuxCond_49);
            transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(Info_4, Then_47, &AuxThen_50);
            transform_hlds__loop_inv__gen_aux_proc_goal_3_p_0(Info_4, Else_48, &AuxElse_51);
            {
              AuxGoalExpr_66 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (5 * sizeof(MR_Word)), NULL, NULL));
              MR_hl_field(3, AuxGoalExpr_66, 0) = ((MR_Box) ((MR_Unsigned) 6U));
              MR_hl_field(3, AuxGoalExpr_66, 1) = ((MR_Box) (Vars_45));
              MR_hl_field(3, AuxGoalExpr_66, 2) = ((MR_Box) (AuxCond_49));
              MR_hl_field(3, AuxGoalExpr_66, 3) = ((MR_Box) (AuxThen_50));
              MR_hl_field(3, AuxGoalExpr_66, 4) = ((MR_Box) (AuxElse_51));
            }
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
              *AuxGoal_6 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (AuxGoalExpr_66));
              MR_hl_field(0, base, 1) = ((MR_Box) (GoalInfo_8));
            }
          }
          break;
        case (MR_Integer) 7:
          {
            mercury__require__unexpected_2_p_0((MR_String) "predicate \140transform_hlds.loop_inv.gen_aux_proc_goal\'/3", (MR_String) "shorthand");
            return;
          }
          break;
      }
      break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__f_85_110_117_115_101_100_65_114_103_115_95_95_112_114_101_100_95_95_114_101_112_108_97_99_101_95_105_110_105_116_105_97_108_95_97_114_103_115_95_95_91_49_93_95_48_3_p_0(
  MR_Word HeadVar__1_1,
  MR_Word HeadVar__2_2,
  MR_Word * HeadVar__3_3)
{
  if ((HeadVar__1_1 == (MR_Word) ((MR_Unsigned) 0U)))
    *HeadVar__3_3 = HeadVar__2_2;
  else
  {
    MR_Word Var_16 = ((MR_Word) ((MR_hl_field(1, HeadVar__1_1, 1))));
    MR_Box Var_17 = (MR_hl_field(1, HeadVar__1_1, 0));

    if ((HeadVar__2_2 == (MR_Word) ((MR_Unsigned) 0U)))
      {
        mercury__require__unexpected_2_p_0((MR_String) "predicate \140transform_hlds.loop_inv.replace_initial_args\'/3", (MR_String) "first arg longer than second");
        return;
      }
    else
    {
      MR_Word Xs0_8 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 1))));
      MR_Word Xs_9;

      transform_hlds__loop_inv__f_85_110_117_115_101_100_65_114_103_115_95_95_112_114_101_100_95_95_114_101_112_108_97_99_101_95_105_110_105_116_105_97_108_95_97_114_103_115_95_95_91_49_93_95_48_3_p_0(Var_16, Xs0_8, &Xs_9);
      {
        MR_Word base;
        base = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
        *HeadVar__3_3 = base;
        MR_hl_field(1, base, 0) = Var_17;
        MR_hl_field(1, base, 1) = ((MR_Box) (Xs_9));
      }
    }
  }
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__invariant_goal_2_p_0(
  MR_Word HeadVar__1_1,
  MR_Word Goal_5)
{
  while (MR_TRUE)
  {
    MR_bool succeeded = (HeadVar__1_1 != (MR_Word) ((MR_Unsigned) 0U));
    MR_Word InvariantGoal_3;
    MR_Word InvariantGoals_4;
    MR_Word GoalExprX_6;
    MR_Word GoalExprY_8;

    // setup for model_semi tailcalls optimized into a loop
    ;
    if (succeeded)
    {
      InvariantGoal_3 = ((MR_Word) ((MR_hl_field(1, HeadVar__1_1, 0))));
      InvariantGoals_4 = ((MR_Word) ((MR_hl_field(1, HeadVar__1_1, 1))));
      GoalExprX_6 = ((MR_Word) ((MR_hl_field(0, InvariantGoal_3, 0))));
      GoalExprY_8 = ((MR_Word) ((MR_hl_field(0, Goal_5, 0))));
      succeeded = hlds__hlds_goal____Unify____hlds_goal_expr_0_0(GoalExprX_6, GoalExprY_8);
      if (!(succeeded))
      {
        MR_Word TypeInfo_22_25;
        MR_Word PredId_10;
        MR_Integer ProcId_11;
        MR_Word Args_12;
        MR_Word Var_19;
        MR_Integer Var_20;
        MR_Word Var_21;

        succeeded = ((MR_tag((MR_Word) GoalExprX_6)) == (MR_Integer) 2);
        if (succeeded)
        {
          PredId_10 = ((MR_Word) ((MR_hl_field(2, GoalExprX_6, 0))));
          ProcId_11 = ((MR_Integer) ((MR_hl_field(2, GoalExprX_6, 1))));
          Args_12 = ((MR_Word) ((MR_hl_field(2, GoalExprX_6, 2))));
          succeeded = ((MR_tag((MR_Word) GoalExprY_8)) == (MR_Integer) 2);
          if (succeeded)
          {
            Var_19 = ((MR_Word) ((MR_hl_field(2, GoalExprY_8, 0))));
            Var_20 = ((MR_Integer) ((MR_hl_field(2, GoalExprY_8, 1))));
            Var_21 = ((MR_Word) ((MR_hl_field(2, GoalExprY_8, 2))));
            succeeded = hlds__hlds_pred____Unify____pred_id_0_0(PredId_10, Var_19);
            if (succeeded)
            {
              succeeded = (ProcId_11 == Var_20);
              if (succeeded)
              {
                TypeInfo_22_25 = (MR_Word) (&transform_hlds__loop_inv_scalar_common_1[4]);
                succeeded = mercury__builtin__unify_2_p_0(TypeInfo_22_25, ((MR_Box) (Args_12)), ((MR_Box) (Var_21)));
              }
            }
          }
        }
      }
      if (succeeded)
        succeeded = MR_TRUE;
      else
      {
        MR_Word next_value_of_HeadVar__1_1 = InvariantGoals_4;

        // direct tailcall eliminated
        ;
        HeadVar__1_1 = next_value_of_HeadVar__1_1;
        continue;
      }
    }
    return succeeded;
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__create_loop_inv_aux_pred_10_p_0(
  MR_Word PredProcId_11,
  MR_Word HeadVars_12,
  MR_Word ComputedInvArgs_13,
  MR_Word InitialAuxInstMap_14,
  MR_Word * AuxPredProcId_15,
  MR_Word * ReplacementGoal_16,
  MR_Word * AuxPredInfo_17,
  MR_Word * AuxProcInfo_18,
  MR_Word STATE_VARIABLE_ModuleInfo_0_52,
  MR_Word * STATE_VARIABLE_ModuleInfo_53)
{
  MR_Word PredId_20 = ((MR_Word) ((MR_hl_field(0, PredProcId_11, 0))));
  MR_Integer ProcId_21 = ((MR_Integer) ((MR_hl_field(0, PredProcId_11, 1))));
  MR_Word AuxHeadVars_22;
  MR_Word PredInfo_23;
  MR_Word ProcInfo_24;
  MR_Word Goal_25;
  MR_Word GoalInfo_27;
  MR_Word TVarSet_28;
  MR_Word VarTable_29;
  MR_Word ClassContext_30;
  MR_Word RttiVarMaps_31;
  MR_Word InstVarSet_32;
  MR_Word Markers_33;
  MR_Word OrigOrigin_34;
  MR_Word HasParallelConj_35;
  MR_Word VarNameRemap_36;
  MR_Word PredModule_37;
  MR_String PredName_38;
  MR_Word PredOrFunc_39;
  MR_Word Context_40;
  MR_Integer LineNumber_42;
  MR_Integer SeqNum_43;
  MR_Integer ProcNum_44;
  MR_Word Transform_45;
  MR_Word AuxPredSymName_46;
  MR_Word ProcTransform_47;
  MR_Word Origin_48;
  MR_Word AuxPredId_50;
  MR_Integer AuxProcId_51;
  MR_Word STATE_VARIABLE_ModuleInfo_1_55;
  MR_Word Var_56;
  MR_Word _ExtraArgs_49;

  AuxHeadVars_22 = mercury__list__f_43_43_2_f_0((MR_Word) (&transform_hlds__loop_inv_scalar_common_1[0]), HeadVars_12, ComputedInvArgs_13);
  hlds__hlds_module__module_info_pred_proc_info_5_p_0(STATE_VARIABLE_ModuleInfo_0_52, PredId_20, ProcId_21, &PredInfo_23, &ProcInfo_24);
  hlds__hlds_pred__proc_info_get_goal_2_p_0(ProcInfo_24, &Goal_25);
  GoalInfo_27 = ((MR_Word) ((MR_hl_field(0, Goal_25, 1))));
  hlds__hlds_pred__pred_info_get_typevarset_2_p_0(PredInfo_23, &TVarSet_28);
  hlds__hlds_pred__proc_info_get_var_table_2_p_0(ProcInfo_24, &VarTable_29);
  hlds__hlds_pred__pred_info_get_class_context_2_p_0(PredInfo_23, &ClassContext_30);
  hlds__hlds_pred__proc_info_get_rtti_varmaps_2_p_0(ProcInfo_24, &RttiVarMaps_31);
  hlds__hlds_pred__proc_info_get_inst_varset_2_p_0(ProcInfo_24, &InstVarSet_32);
  hlds__hlds_pred__pred_info_get_markers_2_p_0(PredInfo_23, &Markers_33);
  hlds__hlds_pred__pred_info_get_origin_2_p_0(PredInfo_23, &OrigOrigin_34);
  hlds__hlds_pred__proc_info_get_has_parallel_conj_2_p_0(ProcInfo_24, &HasParallelConj_35);
  hlds__hlds_pred__pred_info_get_var_name_remap_2_p_0(PredInfo_23, &VarNameRemap_36);
  PredModule_37 = hlds__hlds_pred__pred_info_module_1_f_0(PredInfo_23);
  PredName_38 = hlds__hlds_pred__pred_info_name_1_f_0(PredInfo_23);
  PredOrFunc_39 = hlds__hlds_pred__pred_info_is_pred_or_func_1_f_0(PredInfo_23);
  Context_40 = hlds__hlds_goal__goal_info_get_context_1_f_0(GoalInfo_27);
  LineNumber_42 = ((MR_Integer) ((MR_hl_field(0, Context_40, 1))));
  hlds__hlds_module__module_info_next_loop_inv_count_4_p_0(LineNumber_42, &SeqNum_43, STATE_VARIABLE_ModuleInfo_0_52, &STATE_VARIABLE_ModuleInfo_1_55);
  ProcNum_44 = hlds__hlds_pred__proc_id_to_int_1_f_0(ProcId_21);
  {
    Var_56 = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
    MR_hl_field(0, Var_56, 0) = ((MR_Box) (LineNumber_42));
    MR_hl_field(0, Var_56, 1) = ((MR_Box) (SeqNum_43));
  }
  {
    Transform_45 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL));
    MR_hl_field(3, Transform_45, 0) = ((MR_Box) ((MR_Unsigned) 3U));
    MR_hl_field(3, Transform_45, 1) = (MR_Box) ((MR_Unsigned) (PredOrFunc_39));
    MR_hl_field(3, Transform_45, 2) = ((MR_Box) (ProcNum_44));
    MR_hl_field(3, Transform_45, 3) = ((MR_Box) (Var_56));
  }
  hlds__pred_name__make_transformed_pred_sym_name_4_p_0(PredModule_37, PredName_38, Transform_45, &AuxPredSymName_46);
  {
    ProcTransform_47 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (3 * sizeof(MR_Word)), NULL, NULL));
    MR_hl_field(3, ProcTransform_47, 0) = ((MR_Box) ((MR_Unsigned) 2U));
    MR_hl_field(3, ProcTransform_47, 1) = ((MR_Box) (LineNumber_42));
    MR_hl_field(3, ProcTransform_47, 2) = ((MR_Box) (SeqNum_43));
  }
  {
    Origin_48 = (MR_Word) MR_mkword(3, MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL));
    MR_hl_field(3, Origin_48, 0) = ((MR_Box) (ProcTransform_47));
    MR_hl_field(3, Origin_48, 1) = ((MR_Box) (OrigOrigin_34));
    MR_hl_field(3, Origin_48, 2) = ((MR_Box) (PredId_20));
    MR_hl_field(3, Origin_48, 3) = ((MR_Box) (ProcId_21));
  }
  hlds__hlds_pred__define_new_pred_19_p_0(AuxPredSymName_46, Origin_48, TVarSet_28, InstVarSet_32, VarTable_29, RttiVarMaps_31, ClassContext_30, InitialAuxInstMap_14, VarNameRemap_36, Markers_33, (MR_Integer) 1, HasParallelConj_35, AuxPredProcId_15, AuxHeadVars_22, &_ExtraArgs_49, Goal_25, ReplacementGoal_16, STATE_VARIABLE_ModuleInfo_1_55, STATE_VARIABLE_ModuleInfo_53);
  AuxPredId_50 = ((MR_Word) ((MR_hl_field(0, *AuxPredProcId_15, 0))));
  AuxProcId_51 = ((MR_Integer) ((MR_hl_field(0, *AuxPredProcId_15, 1))));
  hlds__hlds_module__module_info_pred_proc_info_5_p_0(*STATE_VARIABLE_ModuleInfo_53, AuxPredId_50, AuxProcId_51, AuxPredInfo_17, AuxProcInfo_18);
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(
  MR_Word PPId_5,
  MR_Word Goal_6,
  MR_Word STATE_VARIABLE_IGCs_0_47,
  MR_Word * STATE_VARIABLE_IGCs_48)
{
  MR_bool succeeded;
  MR_Word GoalExpr_8 = ((MR_Word) ((MR_hl_field(0, Goal_6, 0))));
  MR_Word _GoalInfo_9 = ((MR_Word) ((MR_hl_field(0, Goal_6, 1))));

  switch (MR_tag((MR_Word) GoalExpr_8)) {
    default: /*NOTREACHED*/ MR_assert(0);
    case (MR_Integer) 0:
      {
        MR_Word SubGoal_39 = (MR_Word) ((MR_Word) (GoalExpr_8));

        transform_hlds__loop_inv__invariant_goal_candidates_keeping_path_candidates_4_p_0(PPId_5, SubGoal_39, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
      }
      break;
    case (MR_Integer) 1:
      {
        MR_Word Detism_78;
        MR_Word CodeModel_79;
        MR_Word InstMapDelta_80;
        MR_Word InstMapDeltaPairs_81;
        MR_Word ModuleInfo_82;
        MR_Word VarTable_83;
        MR_Word Var_84;

        Detism_78 = hlds__hlds_goal__goal_info_get_determinism_1_f_0(_GoalInfo_9);
        hlds__code_model__determinism_to_code_model_2_p_0(Detism_78, &CodeModel_79);
        switch (CodeModel_79) {
          default:
            succeeded = MR_FALSE;
            break;
          case (MR_Integer) 0:
            succeeded = MR_TRUE;
            break;
          case (MR_Integer) 1:
            succeeded = MR_TRUE;
            break;
        }
        if (succeeded)
        {
          Var_84 = hlds__hlds_goal__goal_info_get_purity_1_f_0(_GoalInfo_9);
          succeeded = (Var_84 == (MR_Integer) 0);
          if (succeeded)
          {
            InstMapDelta_80 = hlds__hlds_goal__goal_info_get_instmap_delta_1_f_0(_GoalInfo_9);
            hlds__instmap__instmap_delta_to_assoc_list_2_p_0(InstMapDelta_80, &InstMapDeltaPairs_81);
            ModuleInfo_82 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 0))));
            VarTable_83 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 1))));
            succeeded = transform_hlds__loop_inv__all_instmap_deltas_are_ground_3_p_0(ModuleInfo_82, VarTable_83, InstMapDeltaPairs_81);
          }
        }
        if (succeeded)
        {
          MR_Word Var_85;
          MR_Word Var_86 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 2))));
          MR_Word Var_96;
          MR_Word Var_97;
          MR_Word Var_99;

          Var_85 = mercury__cord__snoc_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_86, ((MR_Box) (Goal_6)));
          Var_96 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 0))));
          Var_97 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 1))));
          Var_99 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 3))));
          {
            MR_Word base;
            base = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
            *STATE_VARIABLE_IGCs_48 = base;
            MR_hl_field(0, base, 0) = ((MR_Box) (Var_96));
            MR_hl_field(0, base, 1) = ((MR_Box) (Var_97));
            MR_hl_field(0, base, 2) = ((MR_Box) (Var_85));
            MR_hl_field(0, base, 3) = ((MR_Box) (Var_99));
          }
        }
        else
          *STATE_VARIABLE_IGCs_48 = STATE_VARIABLE_IGCs_0_47;
      }
      break;
    case (MR_Integer) 2:
      {
        MR_Word PredId_10 = ((MR_Word) ((MR_hl_field(2, GoalExpr_8, 0))));
        MR_Integer ProcId_11 = ((MR_Integer) ((MR_hl_field(2, GoalExpr_8, 1))));
        MR_Word Var_72 = ((MR_Word) ((MR_hl_field(0, PPId_5, 0))));
        MR_Integer Var_73 = ((MR_Integer) ((MR_hl_field(0, PPId_5, 1))));

        succeeded = hlds__hlds_pred____Unify____pred_id_0_0(PredId_10, Var_72);
        if (succeeded)
          succeeded = (ProcId_11 == Var_73);
        if (succeeded)
          transform_hlds__loop_inv__add_recursive_call_3_p_0(Goal_6, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
        else
          transform_hlds__loop_inv__invariant_goal_candidates_handle_primitive_goal_3_p_0(Goal_6, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
      }
      break;
    case (MR_Integer) 3:
      switch (((MR_Integer) ((MR_hl_field(3, GoalExpr_8, 0))))) {
        default: /*NOTREACHED*/ MR_assert(0);
        case (MR_Integer) 0:
        case (MR_Integer) 1:
          {
            MR_Word Detism_78;
            MR_Word CodeModel_79;
            MR_Word InstMapDelta_80;
            MR_Word InstMapDeltaPairs_81;
            MR_Word ModuleInfo_82;
            MR_Word VarTable_83;
            MR_Word Var_84;

            Detism_78 = hlds__hlds_goal__goal_info_get_determinism_1_f_0(_GoalInfo_9);
            hlds__code_model__determinism_to_code_model_2_p_0(Detism_78, &CodeModel_79);
            switch (CodeModel_79) {
              default:
                succeeded = MR_FALSE;
                break;
              case (MR_Integer) 0:
                succeeded = MR_TRUE;
                break;
              case (MR_Integer) 1:
                succeeded = MR_TRUE;
                break;
            }
            if (succeeded)
            {
              Var_84 = hlds__hlds_goal__goal_info_get_purity_1_f_0(_GoalInfo_9);
              succeeded = (Var_84 == (MR_Integer) 0);
              if (succeeded)
              {
                InstMapDelta_80 = hlds__hlds_goal__goal_info_get_instmap_delta_1_f_0(_GoalInfo_9);
                hlds__instmap__instmap_delta_to_assoc_list_2_p_0(InstMapDelta_80, &InstMapDeltaPairs_81);
                ModuleInfo_82 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 0))));
                VarTable_83 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 1))));
                succeeded = transform_hlds__loop_inv__all_instmap_deltas_are_ground_3_p_0(ModuleInfo_82, VarTable_83, InstMapDeltaPairs_81);
              }
            }
            if (succeeded)
            {
              MR_Word Var_85;
              MR_Word Var_86 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 2))));
              MR_Word Var_96;
              MR_Word Var_97;
              MR_Word Var_99;

              Var_85 = mercury__cord__snoc_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_86, ((MR_Box) (Goal_6)));
              Var_96 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 0))));
              Var_97 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 1))));
              Var_99 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 3))));
              {
                MR_Word base;
                base = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
                *STATE_VARIABLE_IGCs_48 = base;
                MR_hl_field(0, base, 0) = ((MR_Box) (Var_96));
                MR_hl_field(0, base, 1) = ((MR_Box) (Var_97));
                MR_hl_field(0, base, 2) = ((MR_Box) (Var_85));
                MR_hl_field(0, base, 3) = ((MR_Box) (Var_99));
              }
            }
            else
              *STATE_VARIABLE_IGCs_48 = STATE_VARIABLE_IGCs_0_47;
          }
          break;
        case (MR_Integer) 2:
          {
            MR_Word ConjType_33 = ((MR_Unsigned) ((MR_hl_field(3, GoalExpr_8, 1))) & (MR_Integer) 1);
            MR_Word Conjuncts_34 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 2))));

            switch (ConjType_33) {
              default: /*NOTREACHED*/ MR_assert(0);
              case (MR_Integer) 1:
                transform_hlds__loop_inv__invariant_goal_candidates_in_parallel_conj_4_p_0(PPId_5, Conjuncts_34, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
                break;
              case (MR_Integer) 0:
                transform_hlds__loop_inv__invariant_goal_candidates_in_plain_conj_4_p_0(PPId_5, Conjuncts_34, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
                break;
            }
          }
          break;
        case (MR_Integer) 3:
          {
            MR_Word Disjuncts_35 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 1))));

            transform_hlds__loop_inv__invariant_goal_candidates_in_disj_4_p_0(PPId_5, Disjuncts_35, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
          }
          break;
        case (MR_Integer) 4:
          {
            MR_Word Cases_38 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 3))));

            transform_hlds__loop_inv__invariant_goal_candidates_in_switch_4_p_0(PPId_5, Cases_38, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
          }
          break;
        case (MR_Integer) 5:
          {
            MR_Word SubGoal_64 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 2))));

            transform_hlds__loop_inv__invariant_goal_candidates_keeping_path_candidates_4_p_0(PPId_5, SubGoal_64, STATE_VARIABLE_IGCs_0_47, STATE_VARIABLE_IGCs_48);
          }
          break;
        case (MR_Integer) 6:
          {
            MR_Word Cond_42 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 2))));
            MR_Word Then_43 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 3))));
            MR_Word Else_44 = ((MR_Word) ((MR_hl_field(3, GoalExpr_8, 4))));
            MR_Word STATE_VARIABLE_IGCs_10_58;
            MR_Word STATE_VARIABLE_IGCs_11_59;
            MR_Word STATE_VARIABLE_IGCs_12_60;
            MR_Word PathCandidates0_101 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_47, 2))));
            MR_Word STATE_VARIABLE_IGCs_1_102;
            MR_Word Var_68;
            MR_Word Var_69;
            MR_Word Var_71;
            MR_Word Var_106;
            MR_Word Var_107;
            MR_Word Var_109;

            transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_5, Cond_42, STATE_VARIABLE_IGCs_0_47, &STATE_VARIABLE_IGCs_10_58);
            transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_5, Then_43, STATE_VARIABLE_IGCs_10_58, &STATE_VARIABLE_IGCs_11_59);
            Var_68 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_11_59, 0))));
            Var_69 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_11_59, 1))));
            Var_71 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_11_59, 3))));
            {
              STATE_VARIABLE_IGCs_12_60 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
              MR_hl_field(0, STATE_VARIABLE_IGCs_12_60, 0) = ((MR_Box) (Var_68));
              MR_hl_field(0, STATE_VARIABLE_IGCs_12_60, 1) = ((MR_Box) (Var_69));
              MR_hl_field(0, STATE_VARIABLE_IGCs_12_60, 2) = ((MR_Box) (PathCandidates0_101));
              MR_hl_field(0, STATE_VARIABLE_IGCs_12_60, 3) = ((MR_Box) (Var_71));
            }
            transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_5, Else_44, STATE_VARIABLE_IGCs_12_60, &STATE_VARIABLE_IGCs_1_102);
            Var_106 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_102, 0))));
            Var_107 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_102, 1))));
            Var_109 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_102, 3))));
            {
              MR_Word base;
              base = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
              *STATE_VARIABLE_IGCs_48 = base;
              MR_hl_field(0, base, 0) = ((MR_Box) (Var_106));
              MR_hl_field(0, base, 1) = ((MR_Box) (Var_107));
              MR_hl_field(0, base, 2) = ((MR_Box) (PathCandidates0_101));
              MR_hl_field(0, base, 3) = ((MR_Box) (Var_109));
            }
          }
          break;
        case (MR_Integer) 7:
          {
            mercury__require__unexpected_2_p_0((MR_String) "predicate \140transform_hlds.loop_inv.invariant_goal_candidates_in_goal\'/4", (MR_String) "shorthand");
            return;
          }
          break;
      }
      break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_switch_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4)
{
  while (MR_TRUE)
  {
    // setup for model_det tailcalls optimized into a loop
    ;
    if ((HeadVar__2_2 == (MR_Word) ((MR_Unsigned) 0U)))
      *STATE_VARIABLE_IGCs_4 = STATE_VARIABLE_IGCs_0_3;
    else
    {
      MR_Word Case_10 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 0))));
      MR_Word Cases_11 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 1))));
      MR_Word Goal_15 = ((MR_Word) ((MR_hl_field(0, Case_10, 2))));
      MR_Word STATE_VARIABLE_IGCs_1_18;
      MR_Word PathCandidates0_19 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_3, 2))));
      MR_Word STATE_VARIABLE_IGCs_1_20;
      MR_Word Var_24;
      MR_Word Var_25;
      MR_Word Var_27;
      MR_Word next_value_of_HeadVar__2_2;
      MR_Word next_value_of_STATE_VARIABLE_IGCs_0_3;

      transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_1, Goal_15, STATE_VARIABLE_IGCs_0_3, &STATE_VARIABLE_IGCs_1_20);
      Var_24 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_20, 0))));
      Var_25 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_20, 1))));
      Var_27 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_20, 3))));
      {
        STATE_VARIABLE_IGCs_1_18 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_18, 0) = ((MR_Box) (Var_24));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_18, 1) = ((MR_Box) (Var_25));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_18, 2) = ((MR_Box) (PathCandidates0_19));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_18, 3) = ((MR_Box) (Var_27));
      }
      // direct tailcall eliminated
      ;
      next_value_of_HeadVar__2_2 = Cases_11;
      next_value_of_STATE_VARIABLE_IGCs_0_3 = STATE_VARIABLE_IGCs_1_18;
      HeadVar__2_2 = next_value_of_HeadVar__2_2;
      STATE_VARIABLE_IGCs_0_3 = next_value_of_STATE_VARIABLE_IGCs_0_3;
      continue;
    }
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_disj_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4)
{
  while (MR_TRUE)
  {
    // setup for model_det tailcalls optimized into a loop
    ;
    if ((HeadVar__2_2 == (MR_Word) ((MR_Unsigned) 0U)))
      *STATE_VARIABLE_IGCs_4 = STATE_VARIABLE_IGCs_0_3;
    else
    {
      MR_Word Goal_10 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 0))));
      MR_Word Goals_11 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 1))));
      MR_Word STATE_VARIABLE_IGCs_1_15;
      MR_Word PathCandidates0_16 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_3, 2))));
      MR_Word STATE_VARIABLE_IGCs_1_17;
      MR_Word Var_21;
      MR_Word Var_22;
      MR_Word Var_24;
      MR_Word next_value_of_HeadVar__2_2;
      MR_Word next_value_of_STATE_VARIABLE_IGCs_0_3;

      transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_1, Goal_10, STATE_VARIABLE_IGCs_0_3, &STATE_VARIABLE_IGCs_1_17);
      Var_21 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_17, 0))));
      Var_22 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_17, 1))));
      Var_24 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_17, 3))));
      {
        STATE_VARIABLE_IGCs_1_15 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 0) = ((MR_Box) (Var_21));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 1) = ((MR_Box) (Var_22));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 2) = ((MR_Box) (PathCandidates0_16));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 3) = ((MR_Box) (Var_24));
      }
      // direct tailcall eliminated
      ;
      next_value_of_HeadVar__2_2 = Goals_11;
      next_value_of_STATE_VARIABLE_IGCs_0_3 = STATE_VARIABLE_IGCs_1_15;
      HeadVar__2_2 = next_value_of_HeadVar__2_2;
      STATE_VARIABLE_IGCs_0_3 = next_value_of_STATE_VARIABLE_IGCs_0_3;
      continue;
    }
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_parallel_conj_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4)
{
  while (MR_TRUE)
  {
    // setup for model_det tailcalls optimized into a loop
    ;
    if ((HeadVar__2_2 == (MR_Word) ((MR_Unsigned) 0U)))
      *STATE_VARIABLE_IGCs_4 = STATE_VARIABLE_IGCs_0_3;
    else
    {
      MR_Word Goal_10 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 0))));
      MR_Word Goals_11 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 1))));
      MR_Word STATE_VARIABLE_IGCs_1_15;
      MR_Word PathCandidates0_16 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_3, 2))));
      MR_Word STATE_VARIABLE_IGCs_1_17;
      MR_Word Var_21;
      MR_Word Var_22;
      MR_Word Var_24;
      MR_Word next_value_of_HeadVar__2_2;
      MR_Word next_value_of_STATE_VARIABLE_IGCs_0_3;

      transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_1, Goal_10, STATE_VARIABLE_IGCs_0_3, &STATE_VARIABLE_IGCs_1_17);
      Var_21 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_17, 0))));
      Var_22 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_17, 1))));
      Var_24 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_17, 3))));
      {
        STATE_VARIABLE_IGCs_1_15 = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 0) = ((MR_Box) (Var_21));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 1) = ((MR_Box) (Var_22));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 2) = ((MR_Box) (PathCandidates0_16));
        MR_hl_field(0, STATE_VARIABLE_IGCs_1_15, 3) = ((MR_Box) (Var_24));
      }
      // direct tailcall eliminated
      ;
      next_value_of_HeadVar__2_2 = Goals_11;
      next_value_of_STATE_VARIABLE_IGCs_0_3 = STATE_VARIABLE_IGCs_1_15;
      HeadVar__2_2 = next_value_of_HeadVar__2_2;
      STATE_VARIABLE_IGCs_0_3 = next_value_of_STATE_VARIABLE_IGCs_0_3;
      continue;
    }
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_in_plain_conj_4_p_0(
  MR_Word PPId_1,
  MR_Word HeadVar__2_2,
  MR_Word STATE_VARIABLE_IGCs_0_3,
  MR_Word * STATE_VARIABLE_IGCs_4)
{
  while (MR_TRUE)
  {
    // setup for model_det tailcalls optimized into a loop
    ;
    if ((HeadVar__2_2 == (MR_Word) ((MR_Unsigned) 0U)))
      *STATE_VARIABLE_IGCs_4 = STATE_VARIABLE_IGCs_0_3;
    else
    {
      MR_Word Goal_10 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 0))));
      MR_Word Goals_11 = ((MR_Word) ((MR_hl_field(1, HeadVar__2_2, 1))));
      MR_Word STATE_VARIABLE_IGCs_1_15;
      MR_Word next_value_of_HeadVar__2_2;
      MR_Word next_value_of_STATE_VARIABLE_IGCs_0_3;

      transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_1, Goal_10, STATE_VARIABLE_IGCs_0_3, &STATE_VARIABLE_IGCs_1_15);
      // direct tailcall eliminated
      ;
      next_value_of_HeadVar__2_2 = Goals_11;
      next_value_of_STATE_VARIABLE_IGCs_0_3 = STATE_VARIABLE_IGCs_1_15;
      HeadVar__2_2 = next_value_of_HeadVar__2_2;
      STATE_VARIABLE_IGCs_0_3 = next_value_of_STATE_VARIABLE_IGCs_0_3;
      continue;
    }
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_keeping_path_candidates_4_p_0(
  MR_Word PPId_5,
  MR_Word Goal_6,
  MR_Word STATE_VARIABLE_IGCs_0_9,
  MR_Word * STATE_VARIABLE_IGCs_10)
{
  MR_Word PathCandidates0_8 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_9, 2))));
  MR_Word STATE_VARIABLE_IGCs_1_11;
  MR_Word Var_15;
  MR_Word Var_16;
  MR_Word Var_18;

  transform_hlds__loop_inv__invariant_goal_candidates_in_goal_4_p_0(PPId_5, Goal_6, STATE_VARIABLE_IGCs_0_9, &STATE_VARIABLE_IGCs_1_11);
  Var_15 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_11, 0))));
  Var_16 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_11, 1))));
  Var_18 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_1_11, 3))));
  {
    MR_Word base;
    base = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
    *STATE_VARIABLE_IGCs_10 = base;
    MR_hl_field(0, base, 0) = ((MR_Box) (Var_15));
    MR_hl_field(0, base, 1) = ((MR_Box) (Var_16));
    MR_hl_field(0, base, 2) = ((MR_Box) (PathCandidates0_8));
    MR_hl_field(0, base, 3) = ((MR_Box) (Var_18));
  }
}

static void MR_CALL 
transform_hlds__loop_inv__invariant_goal_candidates_handle_primitive_goal_3_p_0(
  MR_Word Goal_4,
  MR_Word STATE_VARIABLE_IGCs_0_14,
  MR_Word * STATE_VARIABLE_IGCs_15)
{
  MR_bool succeeded;
  MR_Word GoalInfo_7 = ((MR_Word) ((MR_hl_field(0, Goal_4, 1))));
  MR_Word Detism_8;
  MR_Word CodeModel_9;
  MR_Word InstMapDelta_10;
  MR_Word InstMapDeltaPairs_11;
  MR_Word ModuleInfo_12;
  MR_Word VarTable_13;
  MR_Word Var_16;

  Detism_8 = hlds__hlds_goal__goal_info_get_determinism_1_f_0(GoalInfo_7);
  hlds__code_model__determinism_to_code_model_2_p_0(Detism_8, &CodeModel_9);
  switch (CodeModel_9) {
    default:
      succeeded = MR_FALSE;
      break;
    case (MR_Integer) 0:
      succeeded = MR_TRUE;
      break;
    case (MR_Integer) 1:
      succeeded = MR_TRUE;
      break;
  }
  if (succeeded)
  {
    Var_16 = hlds__hlds_goal__goal_info_get_purity_1_f_0(GoalInfo_7);
    succeeded = (Var_16 == (MR_Integer) 0);
    if (succeeded)
    {
      InstMapDelta_10 = hlds__hlds_goal__goal_info_get_instmap_delta_1_f_0(GoalInfo_7);
      hlds__instmap__instmap_delta_to_assoc_list_2_p_0(InstMapDelta_10, &InstMapDeltaPairs_11);
      ModuleInfo_12 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_14, 0))));
      VarTable_13 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_14, 1))));
      succeeded = transform_hlds__loop_inv__all_instmap_deltas_are_ground_3_p_0(ModuleInfo_12, VarTable_13, InstMapDeltaPairs_11);
    }
  }
  if (succeeded)
  {
    MR_Word Var_18;
    MR_Word Var_19 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_14, 2))));
    MR_Word Var_29;
    MR_Word Var_30;
    MR_Word Var_32;

    Var_18 = mercury__cord__snoc_2_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_19, ((MR_Box) (Goal_4)));
    Var_29 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_14, 0))));
    Var_30 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_14, 1))));
    Var_32 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_14, 3))));
    {
      MR_Word base;
      base = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
      *STATE_VARIABLE_IGCs_15 = base;
      MR_hl_field(0, base, 0) = ((MR_Box) (Var_29));
      MR_hl_field(0, base, 1) = ((MR_Box) (Var_30));
      MR_hl_field(0, base, 2) = ((MR_Box) (Var_18));
      MR_hl_field(0, base, 3) = ((MR_Box) (Var_32));
    }
  }
  else
    *STATE_VARIABLE_IGCs_15 = STATE_VARIABLE_IGCs_0_14;
}

static MR_bool MR_CALL 
transform_hlds__loop_inv__all_instmap_deltas_are_ground_3_p_0(
  MR_Word ModuleInfo_1,
  MR_Word VarTable_2,
  MR_Word HeadVar__3_3)
{
  while (MR_TRUE)
  {
    MR_bool succeeded;

    // setup for model_semi tailcalls optimized into a loop
    ;
    if ((HeadVar__3_3 == (MR_Word) ((MR_Unsigned) 0U)))
      succeeded = MR_TRUE;
    else
    {
      MR_Word Var_8;
      MR_Word Inst_9;
      MR_Word VarInsts_10 = ((MR_Word) ((MR_hl_field(1, HeadVar__3_3, 1))));
      MR_Word Type_11;
      MR_Word Var_12 = ((MR_Word) ((MR_hl_field(1, HeadVar__3_3, 0))));
      MR_Word next_value_of_HeadVar__3_3;

      Var_8 = ((MR_Word) ((MR_hl_field(0, Var_12, 0))));
      Inst_9 = ((MR_Word) ((MR_hl_field(0, Var_12, 1))));
      parse_tree__var_table__lookup_var_type_3_p_0(VarTable_2, Var_8, &Type_11);
      succeeded = hlds__inst_test__inst_is_ground_3_p_0(ModuleInfo_1, Type_11, Inst_9);
      if (succeeded)
      {
        // direct tailcall eliminated
        ;
        next_value_of_HeadVar__3_3 = VarInsts_10;
        HeadVar__3_3 = next_value_of_HeadVar__3_3;
        continue;
      }
    }
    return succeeded;
    break;
  }
}

static void MR_CALL 
transform_hlds__loop_inv__add_recursive_call_3_p_0(
  MR_Word Goal_4,
  MR_Word STATE_VARIABLE_IGCs_0_7,
  MR_Word * STATE_VARIABLE_IGCs_8)
{
  MR_Word RecCall_6;
  MR_Word Var_9;
  MR_Word Var_10 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_7, 2))));
  MR_Word Var_12;
  MR_Word Var_13;
  MR_Word Var_17;
  MR_Word Var_18;
  MR_Word Var_19;

  Var_9 = mercury__cord__list_1_f_0((MR_Word) (&hlds__hlds_goal__hlds__hlds_goal__type_ctor_info_hlds_goal_0), Var_10);
  {
    RecCall_6 = (MR_Word) MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL);
    MR_hl_field(0, RecCall_6, 0) = ((MR_Box) (Goal_4));
    MR_hl_field(0, RecCall_6, 1) = ((MR_Box) (Var_9));
  }
  Var_17 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_7, 0))));
  Var_18 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_7, 1))));
  Var_19 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_7, 2))));
  Var_13 = ((MR_Word) ((MR_hl_field(0, STATE_VARIABLE_IGCs_0_7, 3))));
  {
    Var_12 = (MR_Word) MR_mkword(1, MR_new_object(MR_Word, (2 * sizeof(MR_Word)), NULL, NULL));
    MR_hl_field(1, Var_12, 0) = ((MR_Box) (RecCall_6));
    MR_hl_field(1, Var_12, 1) = ((MR_Box) (Var_13));
  }
  {
    MR_Word base;
    base = (MR_Word) MR_new_object(MR_Word, (4 * sizeof(MR_Word)), NULL, NULL);
    *STATE_VARIABLE_IGCs_8 = base;
    MR_hl_field(0, base, 0) = ((MR_Box) (Var_17));
    MR_hl_field(0, base, 1) = ((MR_Box) (Var_18));
    MR_hl_field(0, base, 2) = ((MR_Box) (Var_19));
    MR_hl_field(0, base, 3) = ((MR_Box) (Var_12));
  }
}

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____gen_aux_proc_info_0_0_10001(
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_bool succeeded;

  succeeded = transform_hlds__loop_inv____Unify____gen_aux_proc_info_0_0(((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv____Compare____gen_aux_proc_info_0_0_10001(
  MR_Box * wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box wrapper_arg_3)
{
  MR_Word conv0_HeadVar__1_1;

  transform_hlds__loop_inv____Compare____gen_aux_proc_info_0_0(&conv0_HeadVar__1_1, ((MR_Word) (wrapper_arg_2)), ((MR_Word) (wrapper_arg_3)));
  *wrapper_arg_1 = ((MR_Box) (conv0_HeadVar__1_1));
}

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____igc_info_0_0_10001(
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_bool succeeded;

  succeeded = transform_hlds__loop_inv____Unify____igc_info_0_0(((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv____Compare____igc_info_0_0_10001(
  MR_Box * wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box wrapper_arg_3)
{
  MR_Word conv0_HeadVar__1_1;

  transform_hlds__loop_inv____Compare____igc_info_0_0(&conv0_HeadVar__1_1, ((MR_Word) (wrapper_arg_2)), ((MR_Word) (wrapper_arg_3)));
  *wrapper_arg_1 = ((MR_Box) (conv0_HeadVar__1_1));
}

static MR_bool MR_CALL 
transform_hlds__loop_inv____Unify____rec_call_0_0_10001(
  MR_Box wrapper_arg_1,
  MR_Box wrapper_arg_2)
{
  MR_bool succeeded;

  succeeded = transform_hlds__loop_inv____Unify____rec_call_0_0(((MR_Word) (wrapper_arg_1)), ((MR_Word) (wrapper_arg_2)));
  return succeeded;
}

static void MR_CALL 
transform_hlds__loop_inv____Compare____rec_call_0_0_10001(
  MR_Box * wrapper_arg_1,
  MR_Box wrapper_arg_2,
  MR_Box wrapper_arg_3)
{
  MR_Word conv0_HeadVar__1_1;

  transform_hlds__loop_inv____Compare____rec_call_0_0(&conv0_HeadVar__1_1, ((MR_Word) (wrapper_arg_2)), ((MR_Word) (wrapper_arg_3)));
  *wrapper_arg_1 = ((MR_Box) (conv0_HeadVar__1_1));
}

void mercury__transform_hlds__loop_inv__init(void)
{
}

void mercury__transform_hlds__loop_inv__init_type_tables(void)
{
  static MR_bool initialised = MR_FALSE;
  if (initialised) return;
  initialised = MR_TRUE;

  MR_register_type_ctor_info(&transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_gen_aux_proc_info_0);
  MR_register_type_ctor_info(&transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_igc_info_0);
  MR_register_type_ctor_info(&transform_hlds__loop_inv__transform_hlds__loop_inv__type_ctor_info_rec_call_0);
}

void mercury__transform_hlds__loop_inv__init_debugger(void)
{
  MR_fatal_error("debugger initialization in MLDS grade");
}

// Ensure everything is compiled with the same grade.
const char *mercury__transform_hlds__loop_inv__grade_check(void)
{
  return &MR_GRADE_VAR;
}

// :- end_module transform_hlds.loop_inv.
