Skip to content

GitLab

A
Actris
Commit ada45ac5 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files
Options

Generalize `list_sort_elem` specs have arbitrary tail.

parent c6253c6e
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 59 additions and 65 deletions
theories/channel/proto_channel.v
View file @ ada45ac5
......@@ -390,7 +390,7 @@ Section proto.
Global Instance proto_normalize_end d d' p pas q :
ProtoNormalize d p pas q →
ProtoNormalize d' END ((d,p) :: pas) q | 1.
ProtoNormalize d' END ((d,p) :: pas) q | 0.
Proof.
rewrite /ProtoNormalize=> -> /=.
destruct d'; by rewrite /= ?iProto_dual_end left_id.
......@@ -398,12 +398,12 @@ Section proto.
Global Instance proto_normalize_app_r d p1 p2 pas q :
ProtoNormalize d p2 pas q →
ProtoNormalize false p1 ((d,p2) :: pas) (p1 <++> q) | 10.
ProtoNormalize false p1 ((d,p2) :: pas) (p1 <++> q) | 0.
Proof. by rewrite /ProtoNormalize=> -> /=. Qed.
Global Instance proto_normalize_app_r_dual d p1 p2 pas q :
ProtoNormalize d p2 pas q →
ProtoNormalize true p1 ((d,p2) :: pas) (iProto_dual p1 <++> q) | 10.
ProtoNormalize true p1 ((d,p2) :: pas) (iProto_dual p1 <++> q) | 0.
Proof. by rewrite /ProtoNormalize=> -> /=. Qed.
Global Instance proto_cont_normalize_O d v P p q pas :
......
theories/examples/list_sort_elem.v
View file @ ada45ac5
This diff is collapsed.
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