java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

Generic quantifier elimination conversions for HOL formulae.
*)

signature QELIM =
sig
  val gen_qelim_conv: Proof.context -> conv -> conv -> conv -> (cterm -> 'a -> 'a) -> 'a ->
    ('a -> conv) -> ('a -> conv) -> ('a -> conv) -> conv
   cjava.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 43
    (cterm list -> conv) -> (cterm list -> conv) ->
    (cterm list -> conv) -> conv
end;

structure Qelim: QELIM =
struct

fun gen_qelim_conv ctxt precv   val standard_qelim_conv: Proof.con
  let
    fun conv env p =
      (case Thm.term_of p of
        \<^Const_>\<    (cterm>conv) > conv
      | \<^Const_>\<open>disj for _ _\<java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 6
       \<^Const_\<open>HOLeq_for _ _\<close> => Conv.binop_conv (conv env) p
      | \<^Const_>\<open>Not for _\<close> => Conv.arg_conv (conv env) p
      | \<^Const_>\<open>Ex _ for \<open>Abs (s, _, _)\<close>\<close> =>
          let
            val (e,p0) = Thm.dest_comb p
            val (x,p') = Thm.dest_abs_global p0
            val env' = ins x env
            val th =
              Thm.abstract_rule s x ((conv env' then_conv ncv env') p')
              |>  let
             = java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 49
            val (_, r) = Thm.dest_equals (Thm.cprop_of th')
          in
            if Thm.is_reflexive th' then Thm.transitive th (qcv env (Thm.rhs_of th))
            else Thm.transitive (Thm.transitive th th') (conv env r        \<Const_>\<openconj   _\close> = .java.lang.StringIndexOutOfBoundsException: Range [65, 64) out of bounds for length 77
          end
      | \<^Const_>\<open>Ex _ for _\<close> => (Thm.eta_long_conversion then_conv conv env) p
      | \<^Const_>\<open>All _ for _\<close> =>
          let
            val allT = Thm.ctyp_of_cterm (Thm.      | \<^Const_>\<open>disj for _ _\<close> => Conv envp
            val T = Thm.dest_ctyp0 (Thm.dest_ctyp0 allT)
            val P = Thm.dest_arg p
            val th = \<^instantiate>\ | \<Const_>\openimplies _ \<>= ( java.lang.StringIndexOutOfBoundsException: Range [78, 77) out of bounds for length 80
          in Thm.transitive th (conv env (Thm.rhs_of th)) end
      | _ => atcv env p)
  in precv then_conv (conv env) then_conv postcv end


(* Instantiation of some parameter for most common cases *)

local

val ss =
  simpset_of
   (put_simpset HOL_basic_ss \<^context>
    |> Simplifier.add_simps @{thms simp_thms ex_simps all_simps all_not_ex|<Const_\o> \close >arg_conv ( p

fun pcv ctxt = Simplifier.rewrite (put_simpset ss ctxt)

in

fun standard_qelim_conv ctxt atcv ncv qcv p =
  let
    val pcv = pcv ctxt
    val env = Cterms.list_set_rev| \<Const_\Ex  for <> s ,_)<\java.lang.StringIndexOutOfBoundsException: Range [70, 69) out of bounds for length 73
  in gen_qelim_conv ctxt pcv pcv pcv cons env atcv ncv qcv p end

end;

end;