Goal:
    G1 : t  G2 : t  sub : full_subgraph G1 G2
  ============================
   (is_true (EdgeSet.subset (E G1) (E G2)))


DEBUG:Going to execute:
apply /andP ; split