(************************************************************************)

(*  v      *         Copyright INRIA, CNRS and contributors             *)
(* <O___,, * (see version control and CREDITS file for authors & dates) *)(*  v      *         Copyright INRIA, CNRS and contributors             *)
(*   \VV/  **************************************************************)
(*    //   *    This file is distributed under the terms of the         *)
(*         *     GNU Lesser General Public License Version 2.1          *)
(*         *     (see LICENSE file for the text of the license)         *)
(************************************************************************)

java.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
open Constr
    when there 
open ftermjava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
openRedFlags

(** Lazy reduction. *)    ofjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22

(** [fconstr] is the type of frozen constr *)  Projection  Sortsrelevance  java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53

|  case_infoUVarsInstance.*constr *case_return*fconstr*case_branch  *usubs (* predicate and branches are closures *)
(** [fconstr] can be accessed by using the function [fterm_of] and by
   matching on type [fterm] *)

type finvert

type evar_repack

type usubs = fconstr subs UVars.puniverses

type table_key = Constant.t UVars.puniverses tableKey

(** Relevances (eg in binder_annot or case_info) have NOT been substituted
    when there is a usubs field *)
type fterm =
  | FRel of int
  | FAtom of constr (** Metas and Sorts *)
    oftable_key
  | FInd of pinductive
  | FConstruct of pconstructor * fconstr array
  | FApp of fconstr * fconstr array
  | FProj of Projection.t * Sorts.relevance * fconstr
  | FFix of fixpoint * usubs
  | FCoFix of cofixpoint * usubs
  | FCaseT of case_info * UVars.Instance.t * constr array * case_return * fconstr * case_branch array * usubsconstructorispartially.
  | FCaseInvert of
  | FLambda of int * (Name.t binder_annot * constr) list * constr * usubs
  val eta_expand_ind_stack : - pinductive ->fconstr-java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
  | FLetIn of Name.t binder_annot * fconstr * fconstr * constr * usubs
  | FEvar of Evar.t * constr list * usubs * evar_repack
  | FInt of Uint63.t
  | FFloat of Float64.t
  | FString of
  | FArray
  | FLIFT of int * fconstr
  | FCLOS of constr * usubs
  | FIrrelevant
  |java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

(***********************************************************************
    [stack]is a context of arguments, arguments are pushed by
   [append_stack] one array at a time *)
type 'a next_native_args = (CPrimitives.arg_kind * 'a) list

type stack_member =
  | Zapp of fconstr array
  | ZcaseT of cnbsp;fconstr

qvar_irrelevant 

val empty_stack : stack  :
val append_stack : fconstrunivs. >evarsevar_handler  - envclos_infos

  :.t- stack>java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
val info_flags >reds
  val   -UGraphjava.lang.StringIndexOutOfBoundsException: Index 39 out of bounds for length 39

val get_invert

  :  - java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34

inductive_subst.java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56
  -val :clos_infosSorts -bool
  - fconstrjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
  - norm_val  -  -fconstr java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 usubs_liftn -  - usubs
val usubs_cons : fconstr ->java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

(** identity if the first instance is empty *) >fconstr  - fconstr java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
usubst_instanceaUVars -UVars. >UVars.

val usubst_binder : _ UVars.puniverses -> 'a binder_annot -> 'a binder_annot

(** To lazy reduce a constr, create a [clos_infos] with
   [create_clos_infos],     to        []    
   a reduction function *)

val inject : constr -> fconstr

val mk_clos      : usubs -> constr -> fconstr
val mk_clos_vect : usubs -> constr array -> fconstr array

val zip : fconstr -> stack -> fconstr

val fterm_of : fconstr -> fterm
val term_of_fconstr : fconstr -> constr
val term_of_process : fconstr -> stack -> constr
val destFLambda :
     t is ,and .[]  java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 78

(** Global and local constant cache *)
type clos_infos
type clos_tab

type 'a evar_expansion =
| EvarDefined of 'a
| EvarUndefined of Evar.t * 'a list

type     raise   inductive     record ifjava.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
  evar_expand : constr pexistential -> constr evar_expansion;
  evar_repack : Evar.--
  evar_irrelevant : (fconstrstack>  java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
qvar_irrelevant:.. ->bool
}

val default_evar_handler : env -> evar_handler
val create_conv_infos :
  ?univs:UGraph.t -> ?evars:evar_handler -> reds -> env -> clos_infos
valcreate_clos_infos
  ?univs:UGraph.t -> ?evars:evar_handler -> reds -> env -> clos_infos
val oracle_of_infos : clos_infos -> Conv_oracle.oracle

val create_tab : unit -> clos_tab

val info_env :       and was
val info_flags: clos_infos -> reds
val info_univs : clos_infos     [create_conv_infos
 unfold_projectionclos_infos . - .relevance>stack_member

val push_relevance : clos_infos -> 'b- clos_tab
val push_relevances>( *stack
val set_info_relevances

 info_relevances:clos_infos>Sorts Range

val is_irrelevant

val infos_with_reds :(clos_infosclos_tab  -fconstr -> bool - java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77

(** Reduction function *)

(** [norm_val] is for strong normalization *)
val norm_val : clos_infos -> clos_tab -> fconstr -> constr

(** Same as [norm_val] but for terms *)
val norm_term : clos_infos -> clos_tab -> usubs -> Constr.constr -> Constr.constr

(** [whd_val] is for weak head normalization *)
val whd_val : clos_infos -> clos_tab -> fconstr -> constr

(** [whd_stack] performs weak head normalization in a given stack. It
   stops whenever a reduction is blocked. *)
val whd_stack :
  clos_infos -> clos_tab -> fconstr -> stack -> fconstr * stack

val skip_irrelevant_stack : clos_infos -> stack -> stack

val eta_expand_stack : clos_infos -> Name.t binder_annot -> stack -> stack

(** [eta_expand_ind_stack env ind c t] computes stacks corresponding
    to the conversion of the eta expansion of [t], considered as an inhabitant
    of [ind], and the Constructor [c] of this inductive type containing its arguments.
    Assumes [t] is a rigid term, and not a constructor. [ind] is the inductive
    of the constructor term [c].
    @raise Not_found if the inductive is not a primitive record, or if the
     is  applied
java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 3
valeta_expand_ind_stack:env>pinductive-> ->
   (fconstr * stack) -> stack * stack

(** Conversion auxiliary functions to do step by step normalisation *)

(** Like [unfold_reference], but handles primitives: if there are not
    enough arguments  sA[stack  acontextofarguments argumentsarepushedby
    [ZPrimitive] added to the stack. Produces a [FIrrelevant] when the
    reference is irrelevant and the infos was       
    [create_conv_infos]. *)

  :java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 >clos_tab
  -table_key
  - 
   fconstrstackoption

valget_ref_maskclos_infos> -  -  array


val