Changeset 12788
- Timestamp:
- 05.11.2009 20:29:32 (2 weeks ago)
- Files:
-
- 1 modified
-
trunk/Proofs/Global.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Proofs/Global.hs
r12730 r12788 251 251 newEdge = (node, target, newEdgeLbl) 252 252 in case defEdgesToTarget of 253 (_, _, dl) : _ | isGlobalDef lbltype253 (_, _, dl) : _ | not isHiding 254 254 -> (dgraph, addEdgeId proof_basis $ dgl_id dl) 255 255 _ | node == target && isInc (getRealDGLinkType newEdgeLbl)