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

feat(library/tc_multigraph): shorter names for transitive edges

Browse source 
see issue #666
This commit is contained in:
Leonardo de Moura 2015-06-21 12:23:24 -07:00
parent 859ef441a0
commit bd0e9d958d
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
src/library/tc_multigraph.cpp
View file

@ -61,8 +61,29 @@ struct add_edge_fn {
m_graph.m_edges.insert(edge, src); m_graph.m_edges.insert(edge, src);
} }
static name compose_name_core(name const & src, name const & tgt) {
return src + name("to") + tgt;
}
static name compose_name(name const & p, name const & src, name const & tgt) {
if (is_prefix_of(p, tgt))
return compose_name_core(src, tgt.replace_prefix(p, name()));
else if (p.is_atomic())
return compose_name_core(src, tgt);
else
return compose_name(p.get_prefix(), src, tgt);
}
static name compose_name(name const & src, name const & tgt) {
if (src.is_atomic())
return compose_name_core(src, tgt);
else
return compose_name(src.get_prefix(), src, tgt);
}
name compose(name const & src, name const & e1, name const & e2, name const & tgt) { name compose(name const & src, name const & e1, name const & e2, name const & tgt) {
name n = src + name("to") + tgt; name n = compose_name(src, tgt);
pair<environment, name> env_e = ::lean::compose(m_env, *m_tc, e2, e1, optional<name>(n)); pair<environment, name> env_e = ::lean::compose(m_env, *m_tc, e2, e1, optional<name>(n));
m_env = env_e.first; m_env = env_e.first;
return env_e.second; return env_e.second;