diff options
author | Robert Sloan <varomodt@google.com> | 2016-10-21 15:33:05 -0700 |
---|---|---|
committer | Robert Sloan <varomodt@google.com> | 2016-10-21 15:33:05 -0700 |
commit | 41691508a614d59e2ced04b117bdd474f7ad72e4 (patch) | |
tree | 29d4e476bd3cafa1cebcd5097608b0453a17408f /src/Assembly/Conversions.v | |
parent | 8ff79580fc6b473d15fcc566aca5b3045d0e64c0 (diff) |
Make lower bounds work by using HL conversions
Diffstat (limited to 'src/Assembly/Conversions.v')
-rw-r--r-- | src/Assembly/Conversions.v | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/Assembly/Conversions.v b/src/Assembly/Conversions.v index 436a6639b..e4ea4b5d1 100644 --- a/src/Assembly/Conversions.v +++ b/src/Assembly/Conversions.v @@ -424,11 +424,7 @@ Module LLConversions. Fixpoint check' {t} (x: @interp_type (option RangeWithValue) t) := match t as t' return (interp_type t') -> bool with - | TT => fun x' => - match omap x' (bwFromRWV (n := n)) with - | Some _ => true - | None => false - end + | TT => fun x' => orElse false (option_map (checkRWV (n := n)) x') | Prod t0 t1 => fun x' => match x' with | (x0, x1) => andb (check' x0) (check' x1) @@ -483,8 +479,8 @@ Module LLConversions. destruct Z as [aSome|aNone]; [destruct aSome as [a' aSome] |]. - * rewrite aSome; simpl; rewrite aSome; reflexivity. - * rewrite aNone in H; inversion H. + admit. + admit. + unfold boundVarInterp, rangeOf in *. simpl in *; kill_dec; try reflexivity; try inversion H. @@ -492,7 +488,7 @@ Module LLConversions. + simpl in *; rewrite IHa0, IHa1; simpl; [reflexivity | | ]; apply andb_true_iff in H; destruct H as [H1 H2]; assumption. - Qed. + Admitted. Lemma RangeInterp_spec: forall {t} (E: expr t), check (convertExpr E) = true |