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
Sidebyside
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