lazy rule Entity2EClass {
	from
		entity: Entity!Entity
	to
		eClass: ECore!EClass (
			name <- entity.name,
			abstract <- entity.abstract,
			eSuperTypes <- if not entity.parent.oclIsUndefined() then
					Sequence{thisModule.resolveTemp(entity.parent, 'eClass')}
				else
					Sequence {}
				endif,
			eAttributes <- entity.attributes -> collect(attribute | thisModule.
					Attribute2EAttribute(attribute))
		)	
}

lazy rule Attribute2EAttribute {
	from
		attribute: Entity!Attribute
	to
		eAttribute: ECore!EAttribute (
			name <- attribute.name,
			eType <- if attribute.dataType.name = 'EString' then
					ECore!EString
				else
					thisModule.resolveTemp(attribute.dataType, 'eClass')
				endif
		)
}