open Crypto type t = { pub: eddsa_pub; stamp_start: Timestamp.t; stamp_expire: Timestamp.t; stamp_end: Timestamp.t; master_sig: Signatures.ExchangeSigningKeyValidity.t; } let is_valid_at ~timestamp sk = Timestamp.geq sk.stamp_start timestamp && Timestamp.lt timestamp sk.stamp_end