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