-let get_proof_status status =
- match status.proof_status with
- | Incomplete_proof s -> s
- | _ -> statement_error "no ongoing proof"
-
-let get_proof_metasenv status =
- match status.proof_status with
- | No_proof -> []
- | Incomplete_proof ((_, metasenv, _, _), _) -> metasenv
- | Proof (_, metasenv, _, _) -> metasenv
- | Intermediate m -> m
-
-let get_proof_context status =
- match status.proof_status with
- | Incomplete_proof ((_, metasenv, _, _), goal) ->
- let (_, context, _) = CicUtil.lookup_meta goal metasenv in
- context
- | _ -> []
-
-let get_proof_conclusion status =
- match status.proof_status with
- | Incomplete_proof ((_, metasenv, _, _), goal) ->
- let (_, _, conclusion) = CicUtil.lookup_meta goal metasenv in
- conclusion
- | _ -> statement_error "no ongoing proof"
-
-let qualify status name = get_string_option status "baseuri" ^ "/" ^ name
-