Revision 4388214acf75d0162f5a29c2c42230f44f6c8187 authored by Pierre-Yves Strub on 12 December 2015, 19:59:46 UTC, committed by Pierre-Yves Strub on 12 December 2015, 20:03:33 UTC
Syntax is `[~*]`. The full syntax of this i-p is now: `move=> [int?~?/?*]`
1 parent c09a98a
ecTheory.mli
(* --------------------------------------------------------------------
* Copyright (c) - 2012--2015 - IMDEA Software Institute
* Copyright (c) - 2012--2015 - Inria
*
* Distributed under the terms of the CeCILL-C-V1 license
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
open EcSymbols
open EcDecl
open EcModules
(* -------------------------------------------------------------------- *)
type theory = theory_item list
and theory_item =
| Th_type of (symbol * tydecl)
| Th_operator of (symbol * operator)
| Th_axiom of (symbol * axiom)
| Th_modtype of (symbol * module_sig)
| Th_module of module_expr
| Th_theory of (symbol * (theory * thmode))
| Th_export of EcPath.path
| Th_instance of (ty_params * EcTypes.ty) * tcinstance
| Th_typeclass of (symbol * typeclass)
| Th_baserw of symbol
| Th_addrw of EcPath.path * EcPath.path list
| Th_auto of EcPath.Sp.t
and tcinstance = [ `Ring of ring | `Field of field | `General of EcPath.path ]
and thmode = [ `Abstract | `Concrete ]
(* -------------------------------------------------------------------- *)
type ctheory = {
cth_desc : ctheory_desc;
cth_struct : ctheory_struct;
}
and ctheory_desc =
| CTh_struct of ctheory_struct
| CTh_clone of ctheory_clone
and ctheory_struct = ctheory_item list
and ctheory_item =
| CTh_type of (symbol * tydecl)
| CTh_operator of (symbol * operator)
| CTh_axiom of (symbol * axiom)
| CTh_modtype of (symbol * module_sig)
| CTh_module of module_expr
| CTh_theory of (symbol * (ctheory * thmode))
| CTh_export of EcPath.path
| CTh_instance of (ty_params * EcTypes.ty) * tcinstance
| CTh_typeclass of (symbol * typeclass)
| CTh_baserw of symbol
| CTh_addrw of EcPath.path * EcPath.path list
| CTh_auto of EcPath.Sp.t
and ctheory_clone = {
cthc_base : EcPath.path;
cthc_ext : (EcIdent.t * ctheory_override) list;
}
and ctheory_override =
| CTHO_Type of EcTypes.ty
(* -------------------------------------------------------------------- *)
val module_comps_of_module_sig_comps:
module_sig_body -> module_item list
val module_expr_of_module_sig:
EcIdent.t -> module_type -> module_sig -> mod_restr -> module_expr
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...