set V = {1};
set E = {} ;
reconsider S = {} as Function of {},{1} by RELSET_1:12;
set G = createGraph ({1},{},S,S);
take createGraph ({1},{},S,S) ; :: thesis: ( createGraph ({1},{},S,S) is _trivial & createGraph ({1},{},S,S) is simple )
the_Vertices_of (createGraph ({1},{},S,S)) = {1} by FINSEQ_4:76;
then card (the_Vertices_of (createGraph ({1},{},S,S))) = 1 by CARD_1:30;
hence createGraph ({1},{},S,S) is _trivial ; :: thesis: createGraph ({1},{},S,S) is simple
the_Edges_of (createGraph ({1},{},S,S)) = {} by FINSEQ_4:76;
then for e1, e2, v1, v2 being object st e1 Joins v1,v2, createGraph ({1},{},S,S) & e2 Joins v1,v2, createGraph ({1},{},S,S) holds
e1 = e2 ;
then A1: createGraph ({1},{},S,S) is non-multi ;
for e being object holds
( not e in the_Edges_of (createGraph ({1},{},S,S)) or not (the_Source_of (createGraph ({1},{},S,S))) . e = (the_Target_of (createGraph ({1},{},S,S))) . e ) by FINSEQ_4:76;
then createGraph ({1},{},S,S) is loopless ;
hence createGraph ({1},{},S,S) is simple by A1; :: thesis: verum