let
get_result g p =
try
Results
.get (
Hpo
.find system.results g) p
with
Not_found
->
None