let call_topin_key call = SigCallKey (call, (Signature.in_top_key))