https://github.com/EasyCrypt/easycrypt
Revision a549eb44e2b03ffed06fdc356fcad09a49c247bf authored by Pierre-Yves Strub on 19 November 2021, 06:23:34 UTC, committed by Pierre-Yves Strub on 19 November 2021, 06:27:09 UTC
This can be done by adding the "opaque" tag, e.g.:

  op [opaque] myop = ...

solve #94
1 parent 10e1563
Raw File
Tip revision: a549eb44e2b03ffed06fdc356fcad09a49c247bf authored by Pierre-Yves Strub on 19 November 2021, 06:23:34 UTC
Add an option to define opaque operators
Tip revision: a549eb4
ecSearch.mli
(* --------------------------------------------------------------------
 * Copyright (c) - 2012--2016 - IMDEA Software Institute
 * Copyright (c) - 2012--2021 - Inria
 * Copyright (c) - 2012--2021 - Ecole Polytechnique
 *
 * Distributed under the terms of the CeCILL-C-V1 license
 * -------------------------------------------------------------------- *)

(* -------------------------------------------------------------------- *)
open EcPath
open EcFol
open EcTyping

(* -------------------------------------------------------------------- *)

type pattern = (ptnmap * EcUnify.unienv) * form

type search = [
  | `ByPath    of Sp.t
  | `ByPattern of pattern
  | `ByOr      of search list
]

val search : EcEnv.env -> search list -> (path * EcDecl.axiom) list
val sort : Sp.t -> (path * EcDecl.axiom) list -> (path * EcDecl.axiom) list
back to top