Skip to content
Snippets Groups Projects
Commit 0010b710 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Params for `iProto_le`.

parent c7701c44
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
theories/channel/proto_channel.v
+ 1
− 0
View file @ 0010b710
......@@ -216,6 +216,7 @@ Proof. solve_contractive. Qed.
Definition iProto_le `{invG Σ} (p1 p2 : iProto Σ) : iProp Σ :=
fixpoint iProto_le_aux p1 p2.
Arguments iProto_le {_ _} _%proto _%proto.
Instance: Params (@iProto_le) 2 := {}.
Fixpoint proto_interp {Σ} (vs : list val) (p1 p2 : iProto Σ) : iProp Σ :=
match vs with
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment