Skip to main content

Browse the archive

Revision 9275a294e0547ebea106e49cb81e8a4736a90398 authored by Pierre-Yves Strub on 19 October 2023, 13:35:01 UTC, committed by Pierre-Yves Strub on 19 October 2023, 14:57:04 UTC 
Nits: choiceb induction principle
1 parent a214a56
Raw File
ecBaseLogic.ml 
(* -------------------------------------------------------------------- *)
open EcTypes
open EcCoreFol

(* -------------------------------------------------------------------- *)
type local_kind =
| LD_var    of ty * form option
| LD_mem    of EcMemory.memtype
| LD_modty  of EcModules.module_type
| 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;
}
back to top