	.file	"915486.c"
	.intel_syntax noprefix
	.text
	.section	.rodata
	.align 8
.LC0:
	.string	"ERROR: missing type for id %s\n"
.LC1:
	.string	""
	.align 8
.LC2:
	.string	"Lambda case is adding binding %s:"
	.align 8
.LC3:
	.string	"Lambda case discovered type of %s is "
	.align 8
.LC4:
	.string	"Cond case discovered types of branches to be "
	.align 8
.LC5:
	.string	"Let case discovered type of %s is "
	.align 8
.LC6:
	.string	"Let rec case is adding binding %s:"
	.align 8
.LC7:
	.string	"Let rec case discovered type of %s is "
	.align 8
.LC8:
	.string	"internal error: missing case for type %d in TypeCheck\n"
	.text
	.globl	TypeCheck
	.type	TypeCheck, @function
TypeCheck:
.LFB0:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	r12
	push	rbx
	sub	rsp, 160
	.cfi_offset 12, -24
	.cfi_offset 3, -32
	mov	QWORD PTR -168[rbp], rdi
	mov	QWORD PTR -176[rbp], rsi
	cmp	QWORD PTR -168[rbp], -2
	jne	.L2
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L2:
	mov	rax, QWORD PTR -176[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 11
	ja	.L4
	mov	eax, eax
	lea	rdx, 0[0+rax*4]
	lea	rax, .L6[rip]
	mov	eax, DWORD PTR [rdx+rax]
	cdqe
	lea	rdx, .L6[rip]
	add	rax, rdx
	notrack jmp	rax
	.section	.rodata
	.align 4
	.align 4
.L6:
	.long	.L4-.L6
	.long	.L16-.L6
	.long	.L15-.L6
	.long	.L14-.L6
	.long	.L13-.L6
	.long	.L12-.L6
	.long	.L11-.L6
	.long	.L10-.L6
	.long	.L9-.L6
	.long	.L8-.L6
	.long	.L7-.L6
	.long	.L5-.L6
	.text
.L16:
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -168[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Lookup@PLT
	mov	QWORD PTR -24[rbp], rax
	cmp	QWORD PTR -24[rbp], -3
	jne	.L17
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC0[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L17:
	call	NewSub@PLT
	mov	QWORD PTR -120[rbp], rax
	mov	rax, QWORD PTR -24[rbp]
	mov	rdi, rax
	call	HandleGeneric@PLT
	mov	QWORD PTR -112[rbp], rax
	mov	rdx, QWORD PTR -112[rbp]
	mov	rax, QWORD PTR -120[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L15:
	mov	ecx, 0
	mov	edx, 0
	lea	rsi, .LC1[rip]
	mov	edi, 2
	call	CreateType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L14:
	mov	ecx, 0
	mov	edx, 0
	lea	rsi, .LC1[rip]
	mov	edi, 1
	call	CreateType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L13:
	call	NewTypeVar@PLT
	mov	ecx, 0
	mov	edx, 0
	mov	rsi, rax
	mov	edi, 3
	call	CreateType@PLT
	mov	ecx, 0
	mov	rdx, rax
	lea	rsi, .LC1[rip]
	mov	edi, 6
	call	CreateType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L12:
	mov	ecx, 0
	mov	edx, 0
	lea	rsi, .LC1[rip]
	mov	edi, 2
	call	CreateType@PLT
	mov	ecx, 0
	mov	rdx, rax
	lea	rsi, .LC1[rip]
	mov	edi, 6
	call	CreateType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L11:
	mov	ecx, 0
	mov	edx, 0
	lea	rsi, .LC1[rip]
	mov	edi, 1
	call	CreateType@PLT
	mov	ecx, 0
	mov	rdx, rax
	lea	rsi, .LC1[rip]
	mov	edi, 6
	call	CreateType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L10:
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -144[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -136[rbp], rax
	cmp	QWORD PTR -136[rbp], -3
	jne	.L18
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L18:
	mov	rax, QWORD PTR -176[rbp]
	mov	rbx, QWORD PTR 24[rax]
	mov	rdx, QWORD PTR -168[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToEnv@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -80[rbp], rax
	mov	rax, QWORD PTR -80[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -72[rbp], rax
	mov	rax, QWORD PTR -80[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -64[rbp], rax
	cmp	QWORD PTR -64[rbp], -3
	jne	.L19
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L19:
	call	NewTypeVar@PLT
	mov	ecx, 0
	mov	edx, 0
	mov	rsi, rax
	mov	edi, 3
	call	CreateType@PLT
	mov	QWORD PTR -160[rbp], rax
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -64[rbp]
	mov	rcx, rdx
	mov	rdx, rax
	lea	rsi, .LC1[rip]
	mov	edi, 4
	call	CreateType@PLT
	mov	r12, rax
	mov	rdx, QWORD PTR -136[rbp]
	mov	rax, QWORD PTR -72[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rdx, r12
	mov	rsi, rbx
	mov	rdi, rax
	call	Unify
	mov	QWORD PTR -128[rbp], rax
	mov	rdx, QWORD PTR -144[rbp]
	mov	rax, QWORD PTR -72[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Compose@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -128[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Compose@PLT
	mov	QWORD PTR -120[rbp], rax
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -128[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	QWORD PTR -112[rbp], rax
	mov	rdx, QWORD PTR -112[rbp]
	mov	rax, QWORD PTR -120[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L9:
	call	NewTypeVar@PLT
	mov	ecx, 0
	mov	edx, 0
	mov	rsi, rax
	mov	edi, 3
	call	CreateType@PLT
	mov	QWORD PTR -160[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rcx, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	AddType@PLT
	mov	QWORD PTR -168[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC2[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rax, QWORD PTR -160[rbp]
	mov	rdi, rax
	call	PrintType@PLT
	mov	edi, 10
	call	putchar@PLT
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -144[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -136[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC3[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rdi, rax
	call	PrintType@PLT
	mov	edi, 10
	call	putchar@PLT
	cmp	QWORD PTR -136[rbp], -3
	jne	.L20
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L20:
	mov	rax, QWORD PTR -144[rbp]
	mov	QWORD PTR -120[rbp], rax
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -136[rbp]
	mov	rcx, rax
	lea	rsi, .LC1[rip]
	mov	edi, 4
	call	CreateType@PLT
	mov	QWORD PTR -112[rbp], rax
	mov	rdx, QWORD PTR -112[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L8:
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -144[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -136[rbp], rax
	cmp	QWORD PTR -136[rbp], -3
	jne	.L21
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L21:
	mov	ecx, 0
	mov	edx, 0
	lea	rsi, .LC1[rip]
	mov	edi, 1
	call	CreateType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rcx, rax
	mov	rax, QWORD PTR -136[rbp]
	mov	rdx, rbx
	mov	rsi, rax
	mov	rdi, rcx
	call	Unify
	mov	QWORD PTR -128[rbp], rax
	mov	rdx, QWORD PTR -168[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToEnv@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -128[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToEnv@PLT
	mov	QWORD PTR -56[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 24[rax]
	mov	rax, QWORD PTR -56[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -72[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -64[rbp], rax
	cmp	QWORD PTR -64[rbp], -3
	jne	.L22
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L22:
	mov	rax, QWORD PTR -176[rbp]
	mov	rbx, QWORD PTR 32[rax]
	mov	rdx, QWORD PTR -56[rbp]
	mov	rax, QWORD PTR -72[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToEnv@PLT
	mov	rsi, rbx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -48[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -40[rbp], rax
	cmp	QWORD PTR -40[rbp], -3
	jne	.L23
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L23:
	mov	rdx, QWORD PTR -64[rbp]
	mov	rax, QWORD PTR -48[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rcx, rax
	mov	rax, QWORD PTR -40[rbp]
	mov	rdx, rax
	mov	rsi, rbx
	mov	rdi, rcx
	call	Unify
	mov	QWORD PTR -32[rbp], rax
	lea	rdi, .LC4[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rdx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rdi, rax
	call	PrintType@PLT
	mov	edi, 10
	call	putchar@PLT
	mov	rdx, QWORD PTR -48[rbp]
	mov	rax, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Compose@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -72[rbp]
	mov	rsi, rax
	mov	rdi, rdx
	call	Compose@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -128[rbp]
	mov	rsi, rax
	mov	rdi, rdx
	call	Compose@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rax
	mov	rdi, rdx
	call	Compose@PLT
	mov	QWORD PTR -120[rbp], rax
	mov	rdx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	QWORD PTR -112[rbp], rax
	mov	rdx, QWORD PTR -112[rbp]
	mov	rax, QWORD PTR -120[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L7:
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -144[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -136[rbp], rax
	cmp	QWORD PTR -136[rbp], -3
	jne	.L24
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L24:
	mov	rax, QWORD PTR -136[rbp]
	mov	rdi, rax
	call	FreeVarsInType@PLT
	mov	QWORD PTR -104[rbp], rax
	mov	rdx, QWORD PTR -168[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToEnv@PLT
	mov	QWORD PTR -96[rbp], rax
	mov	rdx, QWORD PTR -96[rbp]
	mov	rcx, QWORD PTR -104[rbp]
	mov	rax, QWORD PTR -136[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	BuildGeneric@PLT
	mov	QWORD PTR -88[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC5[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rax, QWORD PTR -88[rbp]
	mov	rdi, rax
	call	PrintType@PLT
	mov	edi, 10
	call	putchar@PLT
	mov	rax, QWORD PTR -176[rbp]
	mov	rcx, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -88[rbp]
	mov	rax, QWORD PTR -96[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	AddType@PLT
	mov	QWORD PTR -96[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 24[rax]
	mov	rax, QWORD PTR -96[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -80[rbp], rax
	mov	rax, QWORD PTR -80[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -72[rbp], rax
	mov	rax, QWORD PTR -80[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -64[rbp], rax
	cmp	QWORD PTR -64[rbp], -3
	jne	.L25
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L25:
	mov	rdx, QWORD PTR -144[rbp]
	mov	rax, QWORD PTR -72[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Compose@PLT
	mov	QWORD PTR -120[rbp], rax
	mov	rax, QWORD PTR -64[rbp]
	mov	QWORD PTR -112[rbp], rax
	mov	rdx, QWORD PTR -112[rbp]
	mov	rax, QWORD PTR -120[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L5:
	call	NewTypeVar@PLT
	mov	ecx, 0
	mov	edx, 0
	mov	rsi, rax
	mov	edi, 3
	call	CreateType@PLT
	mov	QWORD PTR -160[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rcx, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	AddType@PLT
	mov	QWORD PTR -168[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC6[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rax, QWORD PTR -160[rbp]
	mov	rdi, rax
	call	PrintType@PLT
	mov	edi, 10
	call	putchar@PLT
	mov	rax, QWORD PTR -176[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -168[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	TypeCheck
	mov	QWORD PTR -152[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR [rax]
	mov	QWORD PTR -144[rbp], rax
	mov	rax, QWORD PTR -152[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	QWORD PTR -136[rbp], rax
	cmp	QWORD PTR -136[rbp], -3
	jne	.L26
	mov	rsi, -3
	mov	rdi, -4
	call	CreatePair@PLT
	jmp	.L3
.L26:
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rbx, rax
	call	NewSub@PLT
	mov	rcx, rax
	mov	rax, QWORD PTR -136[rbp]
	mov	rdx, rax
	mov	rsi, rbx
	mov	rdi, rcx
	call	Unify
	mov	QWORD PTR -128[rbp], rax
	mov	rdx, QWORD PTR -144[rbp]
	mov	rax, QWORD PTR -128[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Compose@PLT
	mov	QWORD PTR -120[rbp], rax
	mov	rdx, QWORD PTR -160[rbp]
	mov	rax, QWORD PTR -144[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -128[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	QWORD PTR -112[rbp], rax
	mov	rax, QWORD PTR -176[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rsi, rax
	lea	rdi, .LC7[rip]
	mov	eax, 0
	call	printf@PLT
	mov	rax, QWORD PTR -112[rbp]
	mov	rdi, rax
	call	PrintType@PLT
	mov	edi, 10
	call	putchar@PLT
	mov	rdx, QWORD PTR -112[rbp]
	mov	rax, QWORD PTR -120[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	CreatePair@PLT
	jmp	.L3
.L4:
	mov	rax, QWORD PTR -176[rbp]
	mov	eax, DWORD PTR [rax]
	mov	esi, eax
	lea	rdi, .LC8[rip]
	mov	eax, 0
	call	printf@PLT
	mov	edi, 1
	call	exit@PLT
.L3:
	add	rsp, 160
	pop	rbx
	pop	r12
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE0:
	.size	TypeCheck, .-TypeCheck
	.section	.rodata
	.align 8
.LC9:
	.string	"Unify called on unsupported type FORALL"
	.text
	.globl	Unify
	.type	Unify, @function
Unify:
.LFB1:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	push	r12
	push	rbx
	sub	rsp, 32
	.cfi_offset 12, -24
	.cfi_offset 3, -32
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	QWORD PTR -40[rbp], rdx
	cmp	QWORD PTR -32[rbp], -3
	je	.L28
	cmp	QWORD PTR -40[rbp], -3
	je	.L28
	cmp	QWORD PTR -24[rbp], -4
	jne	.L29
.L28:
	mov	rax, -4
	jmp	.L27
.L29:
	mov	rax, QWORD PTR -32[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 7
	ja	.L31
	mov	eax, eax
	lea	rdx, 0[0+rax*4]
	lea	rax, .L33[rip]
	mov	eax, DWORD PTR [rdx+rax]
	cdqe
	lea	rdx, .L33[rip]
	add	rax, rdx
	notrack jmp	rax
	.section	.rodata
	.align 4
	.align 4
.L33:
	.long	.L31-.L33
	.long	.L38-.L33
	.long	.L38-.L33
	.long	.L37-.L33
	.long	.L36-.L33
	.long	.L35-.L33
	.long	.L34-.L33
	.long	.L32-.L33
	.text
.L38:
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	jne	.L39
	mov	rdx, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L39:
	mov	rax, QWORD PTR -40[rbp]
	mov	edx, DWORD PTR [rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	edx, eax
	je	.L40
	mov	rax, -4
	jmp	.L27
.L40:
	mov	rax, QWORD PTR -24[rbp]
	jmp	.L27
.L37:
	mov	rax, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -24[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	InSub@PLT
	test	eax, eax
	je	.L41
	mov	rdx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rbx, rax
	mov	rdx, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rcx, rax
	mov	rax, QWORD PTR -24[rbp]
	mov	rdx, rbx
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L41:
	mov	rdx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	ApplySubToType@PLT
	mov	rdx, rax
	mov	rax, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR 8[rax]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Extend
	jmp	.L27
.L36:
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	je	.L42
	cmp	eax, 4
	je	.L43
	jmp	.L51
.L42:
	mov	rdx, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L43:
	mov	rax, QWORD PTR -40[rbp]
	mov	r12, QWORD PTR 24[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rbx, QWORD PTR 24[rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	mov	rdx, r12
	mov	rsi, rbx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L51:
	mov	rax, -4
	jmp	.L27
.L34:
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	je	.L45
	cmp	eax, 6
	je	.L46
	jmp	.L52
.L45:
	mov	rdx, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L46:
	mov	rax, QWORD PTR -40[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L52:
	mov	rax, -4
	jmp	.L27
.L35:
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	je	.L48
	cmp	eax, 5
	je	.L49
	jmp	.L53
.L48:
	mov	rdx, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L49:
	mov	rax, QWORD PTR -40[rbp]
	mov	r12, QWORD PTR 24[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rbx, QWORD PTR 24[rax]
	mov	rax, QWORD PTR -40[rbp]
	mov	rdx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -32[rbp]
	mov	rcx, QWORD PTR 16[rax]
	mov	rax, QWORD PTR -24[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	Unify
	mov	rdx, r12
	mov	rsi, rbx
	mov	rdi, rax
	call	Unify
	jmp	.L27
.L53:
	mov	rax, -4
	jmp	.L27
.L32:
	lea	rdi, .LC9[rip]
	call	puts@PLT
	mov	rax, -4
	jmp	.L27
.L31:
.L27:
	add	rsp, 32
	pop	rbx
	pop	r12
	pop	rbp
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE1:
	.size	Unify, .-Unify
	.globl	Extend
	.type	Extend, @function
Extend:
.LFB2:
	.cfi_startproc
	endbr64
	push	rbp
	.cfi_def_cfa_offset 16
	.cfi_offset 6, -16
	mov	rbp, rsp
	.cfi_def_cfa_register 6
	sub	rsp, 48
	mov	QWORD PTR -24[rbp], rdi
	mov	QWORD PTR -32[rbp], rsi
	mov	QWORD PTR -40[rbp], rdx
	cmp	QWORD PTR -24[rbp], -4
	jne	.L55
	mov	rax, QWORD PTR -24[rbp]
	jmp	.L56
.L55:
	cmp	QWORD PTR -40[rbp], -3
	jne	.L57
	mov	rax, -4
	jmp	.L56
.L57:
	mov	rax, QWORD PTR -40[rbp]
	mov	eax, DWORD PTR [rax]
	cmp	eax, 3
	jne	.L58
	mov	rax, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR 8[rax]
	mov	rdx, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	strcmp@PLT
	test	eax, eax
	jne	.L58
	mov	rax, QWORD PTR -24[rbp]
	jmp	.L56
.L58:
	mov	rdx, QWORD PTR -40[rbp]
	mov	rax, QWORD PTR -32[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	OccursCheck@PLT
	test	eax, eax
	je	.L59
	mov	rax, -4
	jmp	.L56
.L59:
	call	NewSub@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	rdx, QWORD PTR -40[rbp]
	mov	rcx, QWORD PTR -32[rbp]
	mov	rax, QWORD PTR -16[rbp]
	mov	rsi, rcx
	mov	rdi, rax
	call	AddSub@PLT
	mov	QWORD PTR -16[rbp], rax
	mov	rdx, QWORD PTR -24[rbp]
	mov	rax, QWORD PTR -16[rbp]
	mov	rsi, rdx
	mov	rdi, rax
	call	Compose@PLT
	mov	QWORD PTR -8[rbp], rax
	mov	rax, QWORD PTR -8[rbp]
.L56:
	leave
	.cfi_def_cfa 7, 8
	ret
	.cfi_endproc
.LFE2:
	.size	Extend, .-Extend
	.ident	"GCC: (Ubuntu 10.5.0-1ubuntu1~20.04) 10.5.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	 1f - 0f
	.long	 4f - 1f
	.long	 5
0:
	.string	 "GNU"
1:
	.align 8
	.long	 0xc0000002
	.long	 3f - 2f
2:
	.long	 0x3
3:
	.align 8
4:

	.arch armv5t
	.eabi_attribute 20, 1
	.eabi_attribute 21, 1
	.eabi_attribute 23, 3
	.eabi_attribute 24, 1
	.eabi_attribute 25, 1
	.eabi_attribute 26, 2
	.eabi_attribute 30, 6
	.eabi_attribute 34, 0
	.eabi_attribute 18, 4
	.file	"915486.c"
	.text
	.section	.rodata
	.align	2
.LC0:
	.ascii	"ERROR: missing type for id %s\012\000"
	.align	2
.LC1:
	.ascii	"\000"
	.align	2
.LC2:
	.ascii	"Lambda case is adding binding %s:\000"
	.align	2
.LC3:
	.ascii	"Lambda case discovered type of %s is \000"
	.align	2
.LC4:
	.ascii	"Cond case discovered types of branches to be \000"
	.align	2
.LC5:
	.ascii	"Let case discovered type of %s is \000"
	.align	2
.LC6:
	.ascii	"Let rec case is adding binding %s:\000"
	.align	2
.LC7:
	.ascii	"Let rec case discovered type of %s is \000"
	.align	2
.LC8:
	.ascii	"internal error: missing case for type %d in TypeChe"
	.ascii	"ck\012\000"
	.text
	.align	2
	.global	TypeCheck
	.syntax unified
	.arm
	.fpu softvfp
	.type	TypeCheck, %function
TypeCheck:
	@ args = 0, pretend = 0, frame = 80
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, r5, fp, lr}
	add	fp, sp, #12
	sub	sp, sp, #80
	str	r0, [fp, #-88]
	str	r1, [fp, #-92]
	ldr	r3, [fp, #-88]
	cmn	r3, #2
	bne	.L2
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L2:
	ldr	r3, [fp, #-92]
	ldr	r3, [r3]
	sub	r3, r3, #1
	cmp	r3, #10
	ldrls	pc, [pc, r3, asl #2]
	b	.L4
.L6:
	.word	.L16
	.word	.L15
	.word	.L14
	.word	.L13
	.word	.L12
	.word	.L11
	.word	.L10
	.word	.L9
	.word	.L8
	.word	.L7
	.word	.L5
.L16:
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-88]
	mov	r0, r3
	bl	Lookup
	str	r0, [fp, #-16]
	ldr	r3, [fp, #-16]
	cmn	r3, #3
	bne	.L17
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L27
	bl	printf
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L17:
	bl	NewSub
	str	r0, [fp, #-64]
	ldr	r0, [fp, #-16]
	bl	HandleGeneric
	str	r0, [fp, #-60]
	ldr	r1, [fp, #-60]
	ldr	r0, [fp, #-64]
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L15:
	bl	NewSub
	mov	r4, r0
	mov	r3, #0
	mov	r2, #0
	ldr	r1, .L27+4
	mov	r0, #2
	bl	CreateType
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L14:
	bl	NewSub
	mov	r4, r0
	mov	r3, #0
	mov	r2, #0
	ldr	r1, .L27+4
	mov	r0, #1
	bl	CreateType
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L13:
	bl	NewSub
	mov	r4, r0
	bl	NewTypeVar
	mov	r1, r0
	mov	r3, #0
	mov	r2, #0
	mov	r0, #3
	bl	CreateType
	mov	r2, r0
	mov	r3, #0
	ldr	r1, .L27+4
	mov	r0, #6
	bl	CreateType
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L12:
	bl	NewSub
	mov	r4, r0
	mov	r3, #0
	mov	r2, #0
	ldr	r1, .L27+4
	mov	r0, #2
	bl	CreateType
	mov	r2, r0
	mov	r3, #0
	ldr	r1, .L27+4
	mov	r0, #6
	bl	CreateType
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L11:
	bl	NewSub
	mov	r4, r0
	mov	r3, #0
	mov	r2, #0
	ldr	r1, .L27+4
	mov	r0, #1
	bl	CreateType
	mov	r2, r0
	mov	r3, #0
	ldr	r1, .L27+4
	mov	r0, #6
	bl	CreateType
	mov	r3, r0
	mov	r1, r3
	mov	r0, r4
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L10:
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #8]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-76]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-72]
	ldr	r3, [fp, #-72]
	cmn	r3, #3
	bne	.L18
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L18:
	ldr	r1, [fp, #-88]
	ldr	r0, [fp, #-76]
	bl	ApplySubToEnv
	mov	r2, r0
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #12]
	mov	r1, r3
	mov	r0, r2
	bl	TypeCheck
	str	r0, [fp, #-44]
	ldr	r3, [fp, #-44]
	ldr	r3, [r3]
	str	r3, [fp, #-40]
	ldr	r3, [fp, #-44]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-36]
	ldr	r3, [fp, #-36]
	cmn	r3, #3
	bne	.L19
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L19:
	bl	NewTypeVar
	mov	r1, r0
	mov	r3, #0
	mov	r2, #0
	mov	r0, #3
	bl	CreateType
	str	r0, [fp, #-84]
	bl	NewSub
	mov	r4, r0
	ldr	r1, [fp, #-72]
	ldr	r0, [fp, #-40]
	bl	ApplySubToType
	mov	r5, r0
	ldr	r3, [fp, #-84]
	ldr	r2, [fp, #-36]
	ldr	r1, .L27+4
	mov	r0, #4
	bl	CreateType
	mov	r3, r0
	mov	r2, r3
	mov	r1, r5
	mov	r0, r4
	bl	Unify
	str	r0, [fp, #-68]
	ldr	r1, [fp, #-76]
	ldr	r0, [fp, #-40]
	bl	Compose
	mov	r3, r0
	mov	r1, r3
	ldr	r0, [fp, #-68]
	bl	Compose
	str	r0, [fp, #-64]
	ldr	r1, [fp, #-84]
	ldr	r0, [fp, #-68]
	bl	ApplySubToType
	str	r0, [fp, #-60]
	ldr	r1, [fp, #-60]
	ldr	r0, [fp, #-64]
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L9:
	bl	NewTypeVar
	mov	r1, r0
	mov	r3, #0
	mov	r2, #0
	mov	r0, #3
	bl	CreateType
	str	r0, [fp, #-84]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-84]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	AddType
	str	r0, [fp, #-88]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L27+8
	bl	printf
	ldr	r0, [fp, #-84]
	bl	PrintType
	mov	r0, #10
	bl	putchar
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #8]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-76]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-72]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L27+12
	bl	printf
	ldr	r1, [fp, #-84]
	ldr	r0, [fp, #-76]
	bl	ApplySubToType
	mov	r3, r0
	mov	r0, r3
	bl	PrintType
	mov	r0, #10
	bl	putchar
	ldr	r3, [fp, #-72]
	cmn	r3, #3
	bne	.L20
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L20:
	ldr	r3, [fp, #-76]
	str	r3, [fp, #-64]
	ldr	r1, [fp, #-84]
	ldr	r0, [fp, #-76]
	bl	ApplySubToType
	mov	r2, r0
	ldr	r3, [fp, #-72]
	ldr	r1, .L27+4
	mov	r0, #4
	bl	CreateType
	str	r0, [fp, #-60]
	ldr	r1, [fp, #-60]
	ldr	r0, [fp, #-76]
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L8:
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #8]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-76]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-72]
	ldr	r3, [fp, #-72]
	cmn	r3, #3
	bne	.L21
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L21:
	bl	NewSub
	mov	r4, r0
	mov	r3, #0
	mov	r2, #0
	ldr	r1, .L27+4
	mov	r0, #1
	bl	CreateType
	mov	r3, r0
	mov	r2, r3
	ldr	r1, [fp, #-72]
	mov	r0, r4
	bl	Unify
	str	r0, [fp, #-68]
	ldr	r1, [fp, #-88]
	ldr	r0, [fp, #-76]
	bl	ApplySubToEnv
	mov	r3, r0
	mov	r1, r3
	ldr	r0, [fp, #-68]
	bl	ApplySubToEnv
	str	r0, [fp, #-32]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #12]
	mov	r1, r3
	ldr	r0, [fp, #-32]
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-40]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-36]
	ldr	r3, [fp, #-36]
	cmn	r3, #3
	bne	.L22
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L22:
	ldr	r1, [fp, #-32]
	ldr	r0, [fp, #-40]
	bl	ApplySubToEnv
	mov	r2, r0
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #16]
	mov	r1, r3
	mov	r0, r2
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-28]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-24]
	ldr	r3, [fp, #-24]
	cmn	r3, #3
	bne	.L23
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L23:
	bl	NewSub
	mov	r4, r0
	ldr	r1, [fp, #-36]
	ldr	r0, [fp, #-28]
	bl	ApplySubToType
	mov	r3, r0
	ldr	r2, [fp, #-24]
	mov	r1, r3
	mov	r0, r4
	bl	Unify
	str	r0, [fp, #-20]
	ldr	r0, .L27+16
	bl	printf
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-20]
	bl	ApplySubToType
	mov	r3, r0
	mov	r0, r3
	bl	PrintType
	mov	r0, #10
	bl	putchar
	ldr	r1, [fp, #-28]
	ldr	r0, [fp, #-20]
	bl	Compose
	mov	r3, r0
	ldr	r1, [fp, #-40]
	mov	r0, r3
	bl	Compose
	mov	r3, r0
	ldr	r1, [fp, #-68]
	mov	r0, r3
	bl	Compose
	mov	r3, r0
	ldr	r1, [fp, #-76]
	mov	r0, r3
	bl	Compose
	str	r0, [fp, #-64]
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-20]
	bl	ApplySubToType
	str	r0, [fp, #-60]
	ldr	r1, [fp, #-60]
	ldr	r0, [fp, #-64]
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L7:
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #8]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-76]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-72]
	ldr	r3, [fp, #-72]
	cmn	r3, #3
	bne	.L24
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L24:
	ldr	r0, [fp, #-72]
	bl	FreeVarsInType
	str	r0, [fp, #-56]
	ldr	r1, [fp, #-88]
	ldr	r0, [fp, #-76]
	bl	ApplySubToEnv
	str	r0, [fp, #-52]
	ldr	r2, [fp, #-52]
	ldr	r1, [fp, #-56]
	ldr	r0, [fp, #-72]
	bl	BuildGeneric
	str	r0, [fp, #-48]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L27+20
	bl	printf
	ldr	r0, [fp, #-48]
	bl	PrintType
	mov	r0, #10
	bl	putchar
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-48]
	mov	r1, r3
	ldr	r0, [fp, #-52]
	bl	AddType
	str	r0, [fp, #-52]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #12]
	mov	r1, r3
	ldr	r0, [fp, #-52]
	bl	TypeCheck
	str	r0, [fp, #-44]
	ldr	r3, [fp, #-44]
	ldr	r3, [r3]
	str	r3, [fp, #-40]
	ldr	r3, [fp, #-44]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-36]
	ldr	r3, [fp, #-36]
	cmn	r3, #3
	bne	.L25
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L25:
	ldr	r1, [fp, #-76]
	ldr	r0, [fp, #-40]
	bl	Compose
	str	r0, [fp, #-64]
	ldr	r3, [fp, #-36]
	str	r3, [fp, #-60]
	ldr	r1, [fp, #-60]
	ldr	r0, [fp, #-64]
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L5:
	bl	NewTypeVar
	mov	r1, r0
	mov	r3, #0
	mov	r2, #0
	mov	r0, #3
	bl	CreateType
	str	r0, [fp, #-84]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	ldr	r2, [fp, #-84]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	AddType
	str	r0, [fp, #-88]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L27+24
	bl	printf
	ldr	r0, [fp, #-84]
	bl	PrintType
	mov	r0, #10
	bl	putchar
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #8]
	mov	r1, r3
	ldr	r0, [fp, #-88]
	bl	TypeCheck
	str	r0, [fp, #-80]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3]
	str	r3, [fp, #-76]
	ldr	r3, [fp, #-80]
	ldr	r3, [r3, #4]
	str	r3, [fp, #-72]
	ldr	r3, [fp, #-72]
	cmn	r3, #3
	bne	.L26
	mvn	r1, #2
	mvn	r0, #3
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L26:
	bl	NewSub
	mov	r4, r0
	ldr	r1, [fp, #-84]
	ldr	r0, [fp, #-76]
	bl	ApplySubToType
	mov	r3, r0
	ldr	r2, [fp, #-72]
	mov	r1, r3
	mov	r0, r4
	bl	Unify
	str	r0, [fp, #-68]
	ldr	r1, [fp, #-76]
	ldr	r0, [fp, #-68]
	bl	Compose
	str	r0, [fp, #-64]
	ldr	r1, [fp, #-84]
	ldr	r0, [fp, #-76]
	bl	ApplySubToType
	mov	r3, r0
	mov	r1, r3
	ldr	r0, [fp, #-68]
	bl	ApplySubToType
	str	r0, [fp, #-60]
	ldr	r3, [fp, #-92]
	ldr	r3, [r3, #4]
	mov	r1, r3
	ldr	r0, .L27+28
	bl	printf
	ldr	r0, [fp, #-60]
	bl	PrintType
	mov	r0, #10
	bl	putchar
	ldr	r1, [fp, #-60]
	ldr	r0, [fp, #-64]
	bl	CreatePair
	mov	r3, r0
	b	.L3
.L4:
	ldr	r3, [fp, #-92]
	ldr	r3, [r3]
	mov	r1, r3
	ldr	r0, .L27+32
	bl	printf
	mov	r0, #1
	bl	exit
.L3:
	mov	r0, r3
	sub	sp, fp, #12
	@ sp needed
	pop	{r4, r5, fp, pc}
.L28:
	.align	2
.L27:
	.word	.LC0
	.word	.LC1
	.word	.LC2
	.word	.LC3
	.word	.LC4
	.word	.LC5
	.word	.LC6
	.word	.LC7
	.word	.LC8
	.size	TypeCheck, .-TypeCheck
	.section	.rodata
	.align	2
.LC9:
	.ascii	"Unify called on unsupported type FORALL\000"
	.text
	.align	2
	.global	Unify
	.syntax unified
	.arm
	.fpu softvfp
	.type	Unify, %function
Unify:
	@ args = 0, pretend = 0, frame = 16
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{r4, fp, lr}
	add	fp, sp, #8
	sub	sp, sp, #20
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	str	r2, [fp, #-24]
	ldr	r3, [fp, #-20]
	cmn	r3, #3
	beq	.L30
	ldr	r3, [fp, #-24]
	cmn	r3, #3
	beq	.L30
	ldr	r3, [fp, #-16]
	cmn	r3, #4
	bne	.L31
.L30:
	mvn	r3, #3
	b	.L29
.L31:
	ldr	r3, [fp, #-20]
	ldr	r3, [r3]
	sub	r3, r3, #1
	cmp	r3, #6
	ldrls	pc, [pc, r3, asl #2]
	b	.L33
.L35:
	.word	.L40
	.word	.L40
	.word	.L39
	.word	.L38
	.word	.L37
	.word	.L36
	.word	.L34
.L40:
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	cmp	r3, #3
	bne	.L41
	ldr	r2, [fp, #-20]
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-16]
	bl	Unify
	mov	r3, r0
	b	.L29
.L41:
	ldr	r3, [fp, #-24]
	ldr	r2, [r3]
	ldr	r3, [fp, #-20]
	ldr	r3, [r3]
	cmp	r2, r3
	beq	.L42
	mvn	r3, #3
	b	.L29
.L42:
	ldr	r3, [fp, #-16]
	b	.L29
.L39:
	ldr	r3, [fp, #-20]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-16]
	mov	r0, r3
	bl	InSub
	mov	r3, r0
	cmp	r3, #0
	beq	.L43
	ldr	r1, [fp, #-20]
	ldr	r0, [fp, #-16]
	bl	ApplySubToType
	mov	r4, r0
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-16]
	bl	ApplySubToType
	mov	r3, r0
	mov	r2, r3
	mov	r1, r4
	ldr	r0, [fp, #-16]
	bl	Unify
	mov	r3, r0
	b	.L29
.L43:
	ldr	r3, [fp, #-20]
	ldr	r4, [r3, #4]
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-16]
	bl	ApplySubToType
	mov	r3, r0
	mov	r2, r3
	mov	r1, r4
	ldr	r0, [fp, #-16]
	bl	Extend
	mov	r3, r0
	b	.L29
.L38:
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	cmp	r3, #3
	beq	.L44
	cmp	r3, #4
	beq	.L45
	b	.L53
.L44:
	ldr	r2, [fp, #-20]
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-16]
	bl	Unify
	mov	r3, r0
	b	.L29
.L45:
	ldr	r3, [fp, #-20]
	ldr	r1, [r3, #8]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #8]
	mov	r2, r3
	ldr	r0, [fp, #-16]
	bl	Unify
	ldr	r3, [fp, #-20]
	ldr	r1, [r3, #12]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #12]
	mov	r2, r3
	bl	Unify
	mov	r3, r0
	b	.L29
.L53:
	mvn	r3, #3
	b	.L29
.L36:
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	cmp	r3, #3
	beq	.L47
	cmp	r3, #6
	beq	.L48
	b	.L54
.L47:
	ldr	r2, [fp, #-20]
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-16]
	bl	Unify
	mov	r3, r0
	b	.L29
.L48:
	ldr	r3, [fp, #-20]
	ldr	r1, [r3, #8]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #8]
	mov	r2, r3
	ldr	r0, [fp, #-16]
	bl	Unify
	mov	r3, r0
	b	.L29
.L54:
	mvn	r3, #3
	b	.L29
.L37:
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	cmp	r3, #3
	beq	.L50
	cmp	r3, #5
	beq	.L51
	b	.L55
.L50:
	ldr	r2, [fp, #-20]
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-16]
	bl	Unify
	mov	r3, r0
	b	.L29
.L51:
	ldr	r3, [fp, #-20]
	ldr	r1, [r3, #8]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #8]
	mov	r2, r3
	ldr	r0, [fp, #-16]
	bl	Unify
	ldr	r3, [fp, #-20]
	ldr	r1, [r3, #12]
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #12]
	mov	r2, r3
	bl	Unify
	mov	r3, r0
	b	.L29
.L55:
	mvn	r3, #3
	b	.L29
.L34:
	ldr	r0, .L56
	bl	puts
	mvn	r3, #3
	b	.L29
.L33:
.L29:
	mov	r0, r3
	sub	sp, fp, #8
	@ sp needed
	pop	{r4, fp, pc}
.L57:
	.align	2
.L56:
	.word	.LC9
	.size	Unify, .-Unify
	.align	2
	.global	Extend
	.syntax unified
	.arm
	.fpu softvfp
	.type	Extend, %function
Extend:
	@ args = 0, pretend = 0, frame = 24
	@ frame_needed = 1, uses_anonymous_args = 0
	push	{fp, lr}
	add	fp, sp, #4
	sub	sp, sp, #24
	str	r0, [fp, #-16]
	str	r1, [fp, #-20]
	str	r2, [fp, #-24]
	ldr	r3, [fp, #-16]
	cmn	r3, #4
	bne	.L59
	ldr	r3, [fp, #-16]
	b	.L60
.L59:
	ldr	r3, [fp, #-24]
	cmn	r3, #3
	bne	.L61
	mvn	r3, #3
	b	.L60
.L61:
	ldr	r3, [fp, #-24]
	ldr	r3, [r3]
	cmp	r3, #3
	bne	.L62
	ldr	r3, [fp, #-24]
	ldr	r3, [r3, #4]
	ldr	r1, [fp, #-20]
	mov	r0, r3
	bl	strcmp
	mov	r3, r0
	cmp	r3, #0
	bne	.L62
	ldr	r3, [fp, #-16]
	b	.L60
.L62:
	ldr	r1, [fp, #-24]
	ldr	r0, [fp, #-20]
	bl	OccursCheck
	mov	r3, r0
	cmp	r3, #0
	beq	.L63
	mvn	r3, #3
	b	.L60
.L63:
	bl	NewSub
	str	r0, [fp, #-12]
	ldr	r2, [fp, #-24]
	ldr	r1, [fp, #-20]
	ldr	r0, [fp, #-12]
	bl	AddSub
	str	r0, [fp, #-12]
	ldr	r1, [fp, #-16]
	ldr	r0, [fp, #-12]
	bl	Compose
	str	r0, [fp, #-8]
	ldr	r3, [fp, #-8]
.L60:
	mov	r0, r3
	sub	sp, fp, #4
	@ sp needed
	pop	{fp, pc}
	.size	Extend, .-Extend
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
