https://github.com/EasyCrypt/easycrypt
Revision b3066c46a786674c6cb09c57357db66ebe7937c0 authored by Pierre-Yves Strub on 10 December 2015, 15:05:46 UTC, committed by Pierre-Yves Strub on 10 December 2015, 15:05:56 UTC
1 parent cdb1f75
Tip revision: b3066c46a786674c6cb09c57357db66ebe7937c0 authored by Pierre-Yves Strub on 10 December 2015, 15:05:46 UTC
`case` && `elim` now takes clear genpattern + views (for `case`).
`case` && `elim` now takes clear genpattern + views (for `case`).
Tip revision: b3066c4
ecReduction.mli
(* --------------------------------------------------------------------
* Copyright (c) - 2012--2015 - IMDEA Software Institute
* Copyright (c) - 2012--2015 - Inria
*
* Distributed under the terms of the CeCILL-C-V1 license
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
open EcIdent
open EcPath
open EcTypes
open EcFol
open EcModules
open EcEnv
(* -------------------------------------------------------------------- *)
exception IncompatibleType of env * (ty * ty)
exception IncompatibleForm of env * (form * form)
(* -------------------------------------------------------------------- *)
type 'a eqtest = env -> 'a -> 'a -> bool
module EqTest : sig
val for_type_exn : env -> ty -> ty -> unit
val for_type : ty eqtest
val for_pv_norm : prog_var eqtest
val for_instr_norm : instr eqtest
val for_stmt_norm : stmt eqtest
val for_expr_norm : expr eqtest
val is_unit : env -> ty -> bool
val is_bool : env -> ty -> bool
val is_int : env -> ty -> bool
end
val is_alpha_eq : LDecl.hyps -> form -> form -> bool
(* -------------------------------------------------------------------- *)
type reduction_info = {
beta : bool;
delta_p : (path -> bool); (* None means all *)
delta_h : (ident -> bool); (* None means all *)
zeta : bool; (* reduce let *)
iota : bool; (* reduce case *)
eta : bool; (* reduce eta-expansion *)
logic : bool; (* perform logical simplification *)
modpath : bool; (* reduce module path *)
}
val full_red : reduction_info
val no_red : reduction_info
val beta_red : reduction_info
val betaiota_red : reduction_info
val nodelta : reduction_info
val h_red_opt : reduction_info -> LDecl.hyps -> form -> form option
val h_red : reduction_info -> LDecl.hyps -> form -> form
val simplify : reduction_info -> LDecl.hyps -> form -> form
val is_conv : LDecl.hyps -> form -> form -> bool
val check_conv : LDecl.hyps -> form -> form -> unit
(* -------------------------------------------------------------------- *)
type xconv = [`Eq | `AlphaEq | `Conv]
val xconv : xconv -> LDecl.hyps -> form -> form -> bool
Computing file changes ...