Changeset 12751
- Timestamp:
- 29.10.2009 16:34:31 (3 weeks ago)
- Location:
- trunk/DFOL
- Files:
-
- 2 modified
-
Colimit.hs (modified) (1 diff)
-
Morphism.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/DFOL/Colimit.hs
r12749 r12751 30 30 3.1.2 If yes: 31 31 3.1.2.1 Recover from M the value "c" that s' maps to 32 3.1.2.2 Update m by adding the pair (s,c)33 3.1.3 If no:32 3.1.2.2 Update m by adding the pair (s,c) 33 3.1.3 If no: 34 34 3.1.3.1 Get the type "t" of s in sig1 35 35 3.1.3.2 Translate t along m; call this new type "t1" 36 36 3.1.3.3 Update sig by adding the declaration s : t1 37 37 (in case the name s is already contained in sig, 38 we generate a fresh name "s1" and add the declaration38 we generate a fresh name "s1" and add the declaration 39 39 s1 : t and pair (s,s1) to sig and m respectively. 40 40 3.3 : Add m to M -
trunk/DFOL/Morphism.hs
r12750 r12751 113 113 3 : Check if todo is empty 114 114 3.1 : If yes, go to 5 115 3.2 : If not, go to 4115 3.2 : If not, go to 4 116 116 117 117 4 : Pick a symbol "s" from todo 118 118 4.1 : Get the type "t" of s in sig 119 4.2 : Get the set "vars" of free variables in t, i.e. the symbols of sig119 4.2 : Get the set "vars" of free variables in t, i.e. the symbols of sig 120 120 that t depends on 121 121 4.3 : For each "v" in vars : … … 141 141 3.1 : If s does not occur in excl : 142 142 4.1 : Get the type "t" of s in sig 143 4.2 : Get the set "vars" of free variables in t, i.e. the symbols144 of sig that t depends on143 4.2 : Get the set "vars" of free variables in t, i.e. the symbols 144 of sig that t depends on 145 145 4.3 : If any of the symbols in vars occurs in excl, add s to excl 146 146