Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tej Chajed
stdpp
Commits
b6d58ca6
Commit
b6d58ca6
authored
Jan 17, 2018
by
Robbert Krebbers
Browse files
Support `||` in `naive_solver`.
parent
a2a2d978
Changes
1
Hide whitespace changes
Inline
Side-by-side
theories/tactics.v
View file @
b6d58ca6
...
...
@@ -517,6 +517,8 @@ Tactic Notation "naive_solver" tactic(tac) :=
|
|-
Is_true
(
_
&&
_
)
=>
apply
andb_True
;
split
|
H
:
_
∨
_
|-
_
=>
let
H1
:
=
fresh
in
destruct
H
as
[
H1
|
H1
]
;
try
clear
H
|
H
:
Is_true
(
_
||
_
)
|-
_
=>
apply
orb_True
in
H
;
let
H1
:
=
fresh
in
destruct
H
as
[
H1
|
H1
]
;
try
clear
H
(**i solve the goal using the user supplied tactic *)
|
|-
_
=>
solve
[
tac
]
end
;
...
...
@@ -525,6 +527,7 @@ Tactic Notation "naive_solver" tactic(tac) :=
(**i instantiation of the conclusion *)
|
|-
∃
x
,
_
=>
no_new_unsolved_evars
ltac
:
(
eexists
;
go
n
)
|
|-
_
∨
_
=>
first
[
left
;
go
n
|
right
;
go
n
]
|
|-
Is_true
(
_
||
_
)
=>
apply
orb_True
;
first
[
left
;
go
n
|
right
;
go
n
]
|
_
=>
(**i instantiations of assumptions. *)
lazymatch
n
with
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment