let active_lgg () =
match Wpo.language_of_prover_name (Wp_parameters.Prover.get ()) with
| None ->
(match Wpo.language_of_name (Wp_parameters.Check.get ()) with
| None -> None
| Some l -> Some l
)
| Some l -> Some l