diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-01-21 18:51:47 -0500 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-01-21 18:52:02 -0500 |
| commit | f178e5ba32761135cf433d7298624ff35ae44f44 (patch) | |
| tree | a456963d204417358eadd8e483961f3ac2ce8781 /Bedrock | |
| parent | 3c4ff8fe8d2154addcf440690d315c58a529c1f6 (diff) | |
Revert "Fix a missing qualification"
This reverts commit 3c4ff8fe8d2154addcf440690d315c58a529c1f6.
Revert "Move weqb_hetero to Bedrock.Word"
This reverts commit c83cb07f1477de33ce9eb43eea6a4f2720a94763.
We probably shouldn't modify Bedrock.Word
Diffstat (limited to 'Bedrock')
| -rw-r--r-- | Bedrock/Word.v | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/Bedrock/Word.v b/Bedrock/Word.v index 10bd452bb..2c518807d 100644 --- a/Bedrock/Word.v +++ b/Bedrock/Word.v @@ -300,16 +300,6 @@ Definition weq : forall sz (x y : word sz), {x = y} + {x <> y}. abstract (rewrite (shatter_word y); simpl; intro; injection H; auto). Defined. -Fixpoint weqb_hetero sz1 sz2 (x : word sz1) (y : word sz2) : bool := - match x, y with - | WO, WO => true - | WO, _ => false - | WS b _ x', WS b' _ y' - => eqb b b' && @weqb_hetero _ _ x' y' - | WS _ _ _, _ - => false - end%bool. -Global Arguments weqb_hetero {_ _} _ _. Fixpoint weqb sz (x : word sz) : word sz -> bool := match x in word sz return word sz -> bool with | WO => fun _ => true |