Tezos_protocol_environment_alpha.ContextSourceval verify_tree_proof :
Proof.tree Proof.t ->
(tree -> (tree * 'a) Lwt.t) ->
(tree * 'a,
[ `Proof_mismatch of string
| `Stream_too_long of string
| `Stream_too_short of string ])
Pervasives.result
Lwt.tval verify_stream_proof :
Proof.stream Proof.t ->
(tree -> (tree * 'a) Lwt.t) ->
(tree * 'a,
[ `Proof_mismatch of string
| `Stream_too_long of string
| `Stream_too_short of string ])
Pervasives.result
Lwt.t