swh:1:snp:0e3a7a90b5b85feca1ee6285ebc0301d2b85deae
Tip revision: a2dcec97cf776a2dc0c66353b7963b8a02beeab0 authored by Benjamin Gregoire on 17 October 2022, 07:44:02 UTC
add missing restriction in the case of adversary
add missing restriction in the case of adversary
Tip revision: a2dcec9
ecSearch.mli
(* -------------------------------------------------------------------- *)
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
]
type search_result =
(path * [`Axiom of EcDecl.axiom | `Schema of EcDecl.ax_schema]) list
val search : EcEnv.env -> search list -> search_result
val sort : Sp.t -> search_result -> search_result