Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 18bd32c0 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

ocaml compatibility

parent 1b910c91
No related branches found
No related tags found
1 merge request!2Isabelle configure realization1
......@@ -233,7 +233,7 @@ let iter_proof_attempt_by_filter cont iter filters f =
(fun a -> Controller_itp.pn_proved cont a.S.parent) in
(* verified *)
let f = three_value f filters.verified
(fun p -> match p.S.proof_state with Some Call_provers.{ pr_answer = Valid } ->
(fun p -> match p.S.proof_state with Some pr when pr.Call_provers.pr_answer = Call_provers.Valid ->
true | _ -> false) in
(* status *)
let f = if filters.status = [] then f else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment