swh:1:snp:9f9174fb54ac68d4510837c2f930cf0558bce5b6
Tip revision: f27fcaaaaf1690c77c1d306b4b3d137435475588 authored by Pierre-Yves Strub on 16 February 2019, 06:08:09 UTC
add a "rigid" meta-tactic for forcing rigid unification
add a "rigid" meta-tactic for forcing rigid unification
Tip revision: f27fcaa
ecBaseLogic.ml
(* --------------------------------------------------------------------
* Copyright (c) - 2012--2016 - IMDEA Software Institute
* Copyright (c) - 2012--2018 - Inria
* Copyright (c) - 2012--2018 - Ecole Polytechnique
*
* Distributed under the terms of the CeCILL-C-V1 license
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
open EcTypes
open EcCoreFol
(* -------------------------------------------------------------------- *)
type local_kind =
| LD_var of ty * form option
| LD_mem of EcMemory.memtype
| LD_modty of EcModules.module_type * EcModules.mod_restr
| LD_hyp of form
| LD_abs_st of EcModules.abs_uses
type l_local = EcIdent.t * local_kind
type hyps = {
h_tvar : EcDecl.ty_params;
h_local : l_local list;
}