Commit e6d11e79 authored by Robbert Krebbers's avatar Robbert Krebbers

Argument scopes of `iProto_le`.

parent 9524aefb
Pipeline #21233 passed with stage
in 17 minutes and 51 seconds
...@@ -212,6 +212,7 @@ Local Instance iProto_le_aux_contractive {Σ} : Contractive (@iProto_le_aux Σ). ...@@ -212,6 +212,7 @@ Local Instance iProto_le_aux_contractive {Σ} : Contractive (@iProto_le_aux Σ).
Proof. solve_contractive. Qed. Proof. solve_contractive. Qed.
Definition iProto_le {Σ} (p1 p2 : iProto Σ) : iPropO Σ := Definition iProto_le {Σ} (p1 p2 : iProto Σ) : iPropO Σ :=
fixpoint iProto_le_aux p1 p2. fixpoint iProto_le_aux p1 p2.
Arguments iProto_le {_} _%proto _%proto.
Fixpoint proto_interp {Σ} (vs : list val) (p1 p2 : iProto Σ) : iProp Σ := Fixpoint proto_interp {Σ} (vs : list val) (p1 p2 : iProto Σ) : iProp Σ :=
match vs with match vs with
......
Markdown is supported
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