fact: Definition nt_dot u v := match u,v with | nt_test a, nt_test b => nt_test [elem_of a·elem_of b] | nt_test a, nt_conn b u c => nt_conn [elem_of a·elem_of b] u c | nt_conn a u b, nt_test c => nt_conn a u [elem_of b·elem_of c] | nt_conn a u b, nt_conn c v d => nt_conn a (u·elem_of b·elem_of c·v) d end.
imports: HB(structures) Coq(Setoid Morphisms) mathcomp(all_ssreflect) GraphTheory(edone preliminaries setoid_bigop structures)