Goal:
    G1 : t  G2 : t  sub : full_subgraph G1 G2
  ============================
   (is_true
      (VSet.subset (V G1) (V G2) && EdgeSet.subset (E G1) (E G2) &&
       (s G1 == s G2)))


DEBUG:Going to execute:
apply /andP ; split