michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(library/blast/state): add support for "silent" proof steps.

Browse source
This commit is contained in:
Leonardo de Moura 2015-11-13 10:54:10 -08:00
parent 2e32cf51f9
commit 4aa20fcff0
1 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
src/library/blast/state.h
View file

@ -66,6 +66,10 @@ public:
Proof-steps are usually not used when implementing forward chaining. */
virtual action_result resolve(expr const & pr) const = 0;
/** \brief We say a proof step is "silent" if it doesn't contribute to the
proof depth. */
virtual bool is_silent() const { return false; }
};
/** \brief Smart pointer for proof steps */
@ -84,6 +88,11 @@ public:
lean_assert(m_ptr);
return m_ptr->resolve(pr);
}
bool is_silent() const {
lean_assert(m_ptr);
return m_ptr->is_silent();
}
};
/** \brief Information associated with the current branch of the proof state.
@ -257,7 +266,8 @@ public:
*************************/
void push_proof_step(proof_step const & ps) {
m_proof_depth++;
if (!ps.is_silent())
m_proof_depth++;
m_proof_steps = cons(ps, m_proof_steps);
}
@ -275,15 +285,17 @@ public:
void pop_proof_step() {
lean_assert(m_proof_steps);
m_proof_depth--;
m_proof_steps = tail(m_proof_steps);
if (!head(m_proof_steps).is_silent()) {
lean_assert(m_proof_depth > 0);
m_proof_depth--;
}
m_proof_steps = tail(m_proof_steps);
}
unsigned get_proof_depth() const {
return m_proof_depth;
}
/************************
Assignment management
*************************/