fact: Fixpoint c_exps (zs : list exp) : c_exps_graph zs (issue_mutual.c_exps zs) := match zs as l return (c_exps_graph l (issue_mutual.c_exps l)) with | [] => c_exps_graph_equation_1 | e :: zs1 => c_exps_graph_equation_2 e zs1 (c_exps zs1) (let fix c_exp_notc (z : exp) : c_exp_notc_graph z (c_exp_notc z) := match z as e0 return (c_exp_notc_graph e0 (issue_mutual.c_exp_notc e0)) with | If l0 => c_exp_notc_graph_equation_1 l0 (c_exps l0) end in c_exp_notc e) end.
imports: Equations(Equations) Coq(Program Arith Compare_dec List)