diff options
author | Andres Erbsen <andreser@mit.edu> | 2016-06-20 14:28:02 -0400 |
---|---|---|
committer | Andres Erbsen <andreser@mit.edu> | 2016-06-20 14:28:02 -0400 |
commit | 1a5130702303e2843ab458e2566bef293c6947cd (patch) | |
tree | 043153c61175d372f7a92c495d7189e64b556ce3 | |
parent | 4bb42c36190c360f8d2fecc865ed9e822deddf26 (diff) |
parenthesize Ltac [constr:] arguments
-rw-r--r-- | Bedrock/Word.v | 8 | ||||
-rw-r--r-- | src/Tactics/Nsatz.v | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/Bedrock/Word.v b/Bedrock/Word.v index a33d108fb..8ae651826 100644 --- a/Bedrock/Word.v +++ b/Bedrock/Word.v @@ -849,21 +849,21 @@ Implicit Arguments weqb_sound []. Ltac isWcst w := match eval hnf in w with - | WO => constr:true + | WO => constr:(true) | WS ?b ?w' => match eval hnf in b with | true => isWcst w' | false => isWcst w' - | _ => constr:false + | _ => constr:(false) end - | _ => constr:false + | _ => constr:(false) end. Ltac wcst w := let b := isWcst w in match b with | true => w - | _ => constr:NotConstant + | _ => constr:(NotConstant) end. (* Here's how you can add a ring for a specific bit-width. diff --git a/src/Tactics/Nsatz.v b/src/Tactics/Nsatz.v index 3eb3647a1..8fa8c4a86 100644 --- a/src/Tactics/Nsatz.v +++ b/src/Tactics/Nsatz.v @@ -25,7 +25,7 @@ Ltac nsatz_reify_equations eq zero := lazymatch (eval red in (Ncring_tac.list_reifyl (lterm:=lb))) with (?variables, ?le) => lazymatch (eval compute in (List.rev le)) with - | ?reified_goal::?reified_givens => constr:(variables, reified_givens, reified_goal) + | ?reified_goal::?reified_givens => constr:((variables, reified_givens, reified_goal)) end end. @@ -56,7 +56,7 @@ Ltac nsatz_compute_get_leading_coefficient := Ltac nsatz_compute_get_certificate := lazymatch goal with - |- Logic.eq ((?a :: _ :: ?b) :: ?c) _ -> _ => constr:(c,b) + |- Logic.eq ((?a :: _ :: ?b) :: ?c) _ -> _ => constr:((c,b)) end. Ltac nsatz_rewrite_and_revert domain := |