Skip to content
Draft
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
27 changes: 10 additions & 17 deletions theories/crypto/PRF.eca
Original file line number Diff line number Diff line change
Expand Up @@ -57,30 +57,23 @@ end RF.
abstract theory PseudoRF.
type K.

op dK: { K distr | is_lossless dK } as dK_ll.

op F : K -> D -> R.

module type PseudoRF = {
proc keygen(): K
proc f(_ : K * D): R
proc f(_: K * D): R
}.

module PseudoRF = {
proc keygen() = {
var k;
module PRF (P : PseudoRF) = {
var k : K

k <$ dK;
return k;
proc init() = {
k <@ P.keygen();
}

proc f(k, x) = { return F k x; }
}.

module PRF = {
var k : K
proc f(x: D) = {
var r;

proc init() = { k <$ dK; }
proc f(x: D) = { return F k x; }
r <@ P.f(k, x);
return r;
}
}.
end PseudoRF.
1 change: 0 additions & 1 deletion theories/crypto/prp_prf/Strong_RP_RF.eca
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,6 @@ op uD: { D distr | is_uniform uD /\ is_lossless uD /\ is_full uD } as uD_uf_fu.

(** and a type K equipped with a lossless distribution **)
type K.
op dK: { K distr | is_lossless dK } as dK_ll.

clone import PRP as PRPt with
type D <- D.
Expand Down
Loading