2 Routine clean-up
source | link

You can use simple loop >> .

Before

bridge

For[i = 1, i <= Length@EdgeList@bridge, i++,
  bridge = 
  RemoveProperty[{bridge, EdgeList[bridge][[i]]}, 
   EdgeLabels](*endFor*)];EdgeLabels]];  
bridge

After

now

You can use simple loop >> bridge

For[i = 1, i <= Length@EdgeList@bridge, i++,
 bridge = 
  RemoveProperty[{bridge, EdgeList[bridge][[i]]}, 
   EdgeLabels](*endFor*)]; bridge

now

You can use simple loop.

Before

bridge

For[i = 1, i <= Length@EdgeList@bridge, i++,
  bridge = RemoveProperty[{bridge, EdgeList[bridge][[i]]}, EdgeLabels]];  
bridge

After

now

1
source | link

You can use simple loop >> bridge

For[i = 1, i <= Length@EdgeList@bridge, i++,
 bridge = 
  RemoveProperty[{bridge, EdgeList[bridge][[i]]}, 
   EdgeLabels](*endFor*)]; bridge

now