diff options
author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2021-09-15 14:00:41 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2021-09-15 14:00:41 +0200 |
commit | c9fad7cd7bdc4e79fb06a1d39abfa0d5471623e5 (patch) | |
tree | 300c838636f84ef8cc57faa86eca9440e9171c69 /common | |
parent | 8eaff6bf3933f2213ae85584009e05123c40fa65 (diff) | |
download | compcert-kvx-c9fad7cd7bdc4e79fb06a1d39abfa0d5471623e5.tar.gz compcert-kvx-c9fad7cd7bdc4e79fb06a1d39abfa0d5471623e5.zip |
Avoid `Global Set Asymmetric Patterns` (#408)
Instead, add `Set Asymmetric Patterns` to the files that need it,
or use `Arguments` to make inductive types work better with symmetric patterns.
Closes: #403
Diffstat (limited to 'common')
-rw-r--r-- | common/Behaviors.v | 1 | ||||
-rw-r--r-- | common/Linking.v | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/common/Behaviors.v b/common/Behaviors.v index 023b33e2..1f7f6226 100644 --- a/common/Behaviors.v +++ b/common/Behaviors.v @@ -25,6 +25,7 @@ Require Import Integers. Require Import Smallstep. Set Implicit Arguments. +Set Asymmetric Patterns. (** * Behaviors for program executions *) diff --git a/common/Linking.v b/common/Linking.v index 089f4fd2..d23b1028 100644 --- a/common/Linking.v +++ b/common/Linking.v @@ -869,7 +869,7 @@ Infix ":::" := pass_cons (at level 60, right associativity) : linking_scope. Fixpoint compose_passes (l l': Language) (passes: Passes l l') : Pass l l' := match passes in Passes l l' return Pass l l' with | pass_nil l => pass_identity l - | pass_cons l1 l2 l3 pass1 passes => pass_compose pass1 (compose_passes passes) + | pass_cons pass1 passes => pass_compose pass1 (compose_passes passes) end. (** Some more lemmas about [nlist_forall2]. *) |