pub fn model_from_json(str: &str, context: Arc<RwLock<Context<'static>>>) -> Result<Model> {

    let mut m = Model::new(context);

    let v: JsonValue = serde_json::from_str(str)?;

    let statements = v["mStatements"]

        .as_array()

        .ok_or(error!("mStatements is not an array"))?;

    for statement in statements {

        let entry = statement

            .as_object()

            .ok_or(error!("mStatements contains a non-object"))?

            .iter()

            .next()

            .ok_or(error!("mStatements contains an empty object"))?;

        match entry.0.as_str() {

            "Declaration" => {

                let decl = entry

                    .1

                    .as_object()

                    .ok_or(error!("Declaration is not an object".to_owned()))?;

                let mut valid_decl: bool = false;

                let scope = m.symbols_ptr_unchecked().clone();

                let model = &mut m;

                for (kind, value) in decl {

                    match kind.as_str() {

                        "FindOrGiven" => {

                            parse_variable(value, &mut model.symbols_mut())?;

                            valid_decl = true;

                            break;

                        "Letting" => {

                            parse_letting(value, &scope)?;

                            valid_decl = true;

                            break;

                if !valid_decl {

                }

            "SuchThat" => {

                let constraints_arr = match entry.1.as_array() {

                    Some(x) => x,

                let constraints: Vec<Expression> = constraints_arr

                    .iter()

                    .map(|x| parse_expression(x, m.symbols_ptr_unchecked()))

                    .collect::<Result<Vec<_>>>()?;

                m.add_constraints(constraints);

    Ok(m)

}

fn parse_variable(v: &JsonValue, symtab: &mut SymbolTable) -> Result<()> {

    let arr = v.as_array().ok_or(error!("FindOrGiven is not an array"))?;

    let variable_type = arr[0]

        .as_str()

        .ok_or(error!("FindOrGiven[0] is not a string"))?;

    let name = arr[1]

        .as_object()

        .ok_or(error!("FindOrGiven[1] is not an object"))?["Name"]

        .as_str()

        .ok_or(error!("FindOrGiven[1].Name is not a string"))?;

    let name = Name::User(Ustr::from(name));

    let domain = arr[2]

        .as_object()

        .ok_or(error!("FindOrGiven[2] is not an object"))?

        .iter()

        .next()

        .ok_or(error!("FindOrGiven[2] is an empty object"))?;

    let domain = parse_domain(domain.0, domain.1, symtab)?;

    let decl = match variable_type {

        "Find" => DeclarationPtr::new_find(name.clone(), domain),

        "Given" => DeclarationPtr::new_given(name.clone(), domain),

    symtab.insert(decl).ok_or(Error::Parse(format!(

        "Could not add {name} to symbol table as it already exists"

    )))

}

fn parse_letting(v: &JsonValue, scope: &SymbolTablePtr) -> Result<()> {

    let arr = v.as_array().ok_or(error!("Letting is not an array"))?;

    let name = arr[0]

        .as_object()

        .ok_or(error!("Letting[0] is not an object"))?["Name"]

        .as_str()

        .ok_or(error!("Letting[0].Name is not a string"))?;

    let name = Name::User(Ustr::from(name));

    if let Ok(value) = parse_expression(&arr[1], scope) {

        let mut symtab = scope.write();

        symtab

            .insert(DeclarationPtr::new_value_letting(name.clone(), value))

            .ok_or(Error::Parse(format!(

                "Could not add {name} to symbol table as it already exists"

            )))

        let domain = &arr[1]

            .as_object()

            .ok_or(error!("Letting[1] is not an object".to_owned()))?["Domain"]

            .as_object()

            .ok_or(error!("Letting[1].Domain is not an object"))?

            .iter()

            .next()

            .ok_or(error!("Letting[1].Domain is an empty object"))?;

        let mut symtab = scope.write();

        let domain = parse_domain(domain.0, domain.1, &mut symtab)?;

        symtab

            .insert(DeclarationPtr::new_domain_letting(name.clone(), domain))

            .ok_or(Error::Parse(format!(

                "Could not add {name} to symbol table as it already exists"

            )))

}

fn parse_domain(

    domain_name: &str,

    domain_value: &JsonValue,

    symbols: &mut SymbolTable,

) -> Result<DomainPtr> {

    match domain_name {

        "DomainInt" => Ok(parse_int_domain(domain_value, symbols)?),

        "DomainBool" => Ok(Domain::bool()),

        "DomainReference" => {

            let name = Name::user(

                domain_value

                    .as_array()

                    .ok_or(error!("DomainReference is not an array"))?[0]

                    .as_object()

                    .ok_or(error!("DomainReference[0] is not an object"))?["Name"]

                    .as_str()

                    .ok_or(error!("DomainReference[0].Name is not a string"))?,

            let ptr = symbols

                .lookup(&name)

                .ok_or(error!(format!("Name {name} not found")))?;

            let dom =

                Domain::reference(ptr).ok_or(error!("Could not construct reference domain"))?;

            Ok(dom)

        "DomainSet" => {

            let dom = domain_value.get(2).and_then(|v| v.as_object());

            let domain_obj = dom.ok_or(error!("DomainSet is missing domain object"))?;

            let domain = domain_obj

                .iter()

                .next()

                .ok_or(Error::Parse("DomainSet is an empty object".to_owned()))?;

            let domain = parse_domain(domain.0.as_str(), domain.1, symbols)?;

            let size = domain_value

                .get(1)

                .and_then(|v| v.as_object())

                .ok_or(error!("Set size attributes is not an object"))?;

            let size = parse_size_attr(size, symbols)?;

            let attr: SetAttr<IntVal> = SetAttr { size };

            Ok(Domain::set(attr, domain))

        "DomainMSet" => {

            let dom = domain_value

                .get(2)

                .and_then(|v| v.as_object())

                .expect("domain object exists");

            let domain = dom

                .iter()

                .next()

                .ok_or(Error::Parse("DomainMSet is an empty object".to_owned()))?;

            let domain = parse_domain(domain.0.as_str(), domain.1, symbols)?;

            let attributes = domain_value

                .get(1)

                .and_then(|v| v.as_array())

                .ok_or(error!("MSet attributes is not a json array"))?;

            let size = attributes

                .first()

                .and_then(|v| v.as_object())

                .ok_or(error!("MSet size attributes is not an object"))?;

            let size = parse_size_attr(size, symbols)?;

            let occurrence = attributes

                .get(1)

                .and_then(|v| v.as_object())

                .ok_or(error!("MSet occurrence attributes is not an object"))?;

            let occurrence = parse_occur_attr(occurrence, symbols)?;

            let attr: MSetAttr<IntVal> = MSetAttr { size, occurrence };

            Ok(Domain::mset(attr, domain))

        "DomainPartition" => {

            let dom = domain_value

                .get(2)

                .and_then(|v| v.as_object())

                .expect("domain object exists");

            let domain = dom.iter().next().ok_or(Error::Parse(

                "DomainPartition is an empty object".to_owned(),

            ))?;

            let domain = parse_domain(domain.0.as_str(), domain.1, symbols)?;

            let attributes = domain_value

                .get(1)

                .and_then(|v| v.as_object())

                .ok_or(error!("Partition attributes is not an object"))?;

            let mut num_parts = Range::Unbounded;

            let mut part_len = Range::Unbounded;

            let mut is_regular = false;

            if let Some(val) = attributes.get("partsNum") {

                let attr_map = val.as_object().expect("numParts should be an object");

                num_parts = parse_size_attr(attr_map, symbols)?;

            if let Some(val) = attributes.get("partsSize") {

                let attr_map = val.as_object().expect("partsSize should be an object");

                part_len = parse_size_attr(attr_map, symbols)?;

            if let Some(val) = attributes.get("isRegular").and_then(|v| v.as_bool()) {

                is_regular = val;

            }

            let attr: PartitionAttr<IntVal> = PartitionAttr {

                num_parts,

                part_len,

                is_regular,

            };

            Ok(Domain::partition(attr, domain))

        "DomainMatrix" => {

            let domain_value = domain_value

                .as_array()

                .ok_or(error!("Domain matrix is not an array"))?;

            let indexed_by_domain = domain_value[0].clone();

            let (index_domain_name, index_domain_value) = indexed_by_domain

                .as_object()

                .ok_or(error!("DomainMatrix[0] is not an object"))?

                .iter()

                .next()

                .ok_or(error!(""))?;

            let (value_domain_name, value_domain_value) = domain_value[1]

                .as_object()

                .ok_or(error!(""))?

                .iter()

                .next()

                .ok_or(error!(""))?;

            let mut index_domains: Vec<DomainPtr> = vec![];

            index_domains.push(parse_domain(

                index_domain_name,

                index_domain_value,

                symbols,

            let mut value_domain = parse_domain(value_domain_name, value_domain_value, symbols)?;

            while let Some((new_value_domain, mut indices)) = value_domain.as_matrix() {

                index_domains.append(&mut indices);

                value_domain = new_value_domain.clone()

            Ok(Domain::matrix(value_domain, index_domains))

        "DomainSequence" => {

            let dom = domain_value

                .get(2)

                .and_then(|v| v.as_object())

                .expect("domain object exists");

            let domain = dom

                .iter()

                .next()

                .ok_or(Error::Parse("DomainSequence is an empty object".to_owned()))?;

            let domain = parse_domain(domain.0.as_str(), domain.1, symbols)?;

            let attributes = domain_value

                .get(1)

                .and_then(|v| v.as_array())

                .ok_or(error!("Sequence attributes is not a json array"))?;

            let size = attributes

                .first()

                .and_then(|v| v.as_object())

                .ok_or(error!("Sequence size attributes is not an object"))?;

            let size = parse_size_attr(size, symbols)?;

            let jectivity = attributes

                .get(1)

                .and_then(|v| v.as_str())

                .ok_or(error!("jectivity is not a string"))?;

            let jectivity = match jectivity {

                "JectivityAttr_Injective" => Some(JectivityAttr::Injective),

                "JectivityAttr_Surjective" => Some(JectivityAttr::Surjective),

                "JectivityAttr_Bijective" => Some(JectivityAttr::Bijective),

                "JectivityAttr_None" => Some(JectivityAttr::None),

            let jectivity =

                jectivity.ok_or(Error::Parse("Jectivity is an unknown type".to_owned()))?;

            let attr: SequenceAttr<IntVal> = SequenceAttr { size, jectivity };

            match attr.size {

                Range::Unbounded | Range::UnboundedR(_) => Err(Error::Parse(

                    "Sequence must have size or maxSize attribute".to_string(),

                )),

                _ => Ok(Domain::sequence(attr, domain)),

        "DomainTuple" => {

            let domain_value = domain_value

                .as_array()

                .ok_or(error!("Domain tuple is not an array"))?;

            let domain = domain_value

                .iter()

                .map(|x| {

                    let domain = x

                        .as_object()

                        .ok_or(error!("DomainTuple[0] is not an object"))?

                        .iter()

                        .next()

                        .ok_or(error!("DomainTuple[0] is an empty object"))?;

                    parse_domain(domain.0, domain.1, symbols)

                })

                .collect::<Result<Vec<DomainPtr>>>()?;

            Ok(Domain::tuple(domain))

        "DomainRecord" | "DomainVariant" => {

            let is_record = domain_name == "DomainRecord";

            let domain_string = match is_record {

                true => "Record",

                false => "Variant",

            let domain_value = domain_value.as_array().ok_or(error!(&format!(

                "Domain {domain_string} is not a json array"

            )))?;

            let mut entries = vec![];

            for item in domain_value {

                let name = item[0]

                    .as_object()

                    .ok_or(error!("FindOrGiven[1] is not an object"))?["Name"]

                    .as_str()

                    .ok_or(error!("FindOrGiven[1].Name is not a string"))?;

                let name = Name::User(Ustr::from(name));

                let domain = item[1]

                    .as_object()

                    .ok_or(error!("FindOrGiven[2] is not an object"))?

                    .iter()

                    .next()

                    .ok_or(error!("FindOrGiven[2] is an empty object"))?;

                let rec = Field {

                    name,

                    value: parse_domain(domain.0, domain.1, symbols)?,

                entries.push(rec);

            if is_record {

                Ok(Domain::record(entries))

                Ok(Domain::variant(entries))

        "DomainFunction" => {

            let domain = domain_value

                .get(2)

                .and_then(|v| v.as_object())

                .ok_or(error!("Function domain is not an object"))?;

            let domain = domain

                .iter()

                .next()

                .ok_or(Error::Parse("DomainSet is an empty object".to_owned()))?;

            let domain = parse_domain(domain.0.as_str(), domain.1, symbols)?;

            let codomain = domain_value

                .get(3)

                .and_then(|v| v.as_object())

                .ok_or(error!("Function codomain is not an object"))?;

            let codomain = codomain

                .iter()

                .next()

                .ok_or(Error::Parse("DomainSet is an empty object".to_owned()))?;

            let codomain = parse_domain(codomain.0.as_str(), codomain.1, symbols)?;

            let attributes = domain_value

                .get(1)

                .and_then(|v| v.as_array())

                .ok_or(error!("Function attributes is not a json array"))?;

            let size = attributes

                .first()

                .and_then(|v| v.as_object())

                .ok_or(error!("Function size attributes is not an object"))?;

            let size = parse_size_attr(size, symbols)?;

            let partiality = attributes

                .get(1)

                .and_then(|v| v.as_str())

                .ok_or(error!("Function partiality is not a string"))?;

            let partiality = match partiality {

                "PartialityAttr_Partial" => Some(PartialityAttr::Partial),

                "PartialityAttr_Total" => Some(PartialityAttr::Total),

            let partiality =

                partiality.ok_or(Error::Parse("Partiality is an unknown type".to_owned()))?;

            let jectivity = attributes

                .get(2)

                .and_then(|v| v.as_str())

                .ok_or(error!("Function jectivity is not a string"))?;

            let jectivity = match jectivity {

                "JectivityAttr_Injective" => Some(JectivityAttr::Injective),

                "JectivityAttr_Surjective" => Some(JectivityAttr::Surjective),

                "JectivityAttr_Bijective" => Some(JectivityAttr::Bijective),

                "JectivityAttr_None" => Some(JectivityAttr::None),

            let jectivity =

                jectivity.ok_or(Error::Parse("Jectivity is an unknown type".to_owned()))?;

            let attr: FuncAttr<IntVal> = FuncAttr {

                size,

                partiality,

                jectivity,

            };

            Ok(Domain::function(attr, domain, codomain))

        "DomainRelation" => {

            let domains = domain_value

                .get(2)

                .and_then(|v| v.as_array())

                .ok_or(Error::Parse(

                    "Relation domains are not a json array".to_owned(),

                ))?;

            let domains = domains

                .iter()

                .map(|x| {

                    let domain = x

                        .as_object()

                        .ok_or(Error::Parse("Relation domain is not an object".to_owned()))?

                        .iter()

                        .next()

                        .ok_or(Error::Parse(

                            "Relation domain is an empty object".to_owned(),

                        ))?;

                    parse_domain(domain.0, domain.1, symbols)

                })

                .collect::<Result<Vec<DomainPtr>>>()?;

            let attributes = domain_value

                .get(1)

                .and_then(|v| v.as_array())

                .ok_or(Error::Parse(

                    "Relation attributes are not a json array".to_owned(),

                ))?;

            let size = attributes

                .first()

                .and_then(|v| v.as_object())

                .ok_or(Error::Parse(

                    "Relation size attributes are not an object".to_owned(),

                ))?;

            let size = parse_size_attr(size, symbols)?;

            let binary = attributes

                .get(1)

                .and_then(|v| v.as_array())

                .ok_or(Error::Parse(

                    "Relation binary attributes are not a json array".to_owned(),

                ))?;

            let binary = binary

                .iter()

                .map(|x| {

                    let attr = x.as_str().ok_or(Error::Parse(

                        "Relation binary attribute is not a string".to_owned(),

                    ))?;

                    match attr {

                        "BinRelAttr_Reflexive" => Ok(BinaryAttr::Reflexive),

                        "BinRelAttr_Irreflexive" => Ok(BinaryAttr::Irreflexive),

                        "BinRelAttr_Coreflexive" => Ok(BinaryAttr::Coreflexive),

                        "BinRelAttr_Symmetric" => Ok(BinaryAttr::Symmetric),

                        "BinRelAttr_AntiSymmetric" => Ok(BinaryAttr::AntiSymmetric),

                        "BinRelAttr_ASymmetric" => Ok(BinaryAttr::ASymmetric),

                        "BinRelAttr_Transitive" => Ok(BinaryAttr::Transitive),

                        "BinRelAttr_Total" => Ok(BinaryAttr::Total),

                        "BinRelAttr_Connex" => Ok(BinaryAttr::Connex),

                        "BinRelAttr_Euclidean" => Ok(BinaryAttr::Euclidean),

                        "BinRelAttr_Serial" => Ok(BinaryAttr::Serial),

                        "BinRelAttr_Equivalence" => Ok(BinaryAttr::Equivalence),

                        "BinRelAttr_PartialOrder" => Ok(BinaryAttr::PartialOrder),

                })

                .collect::<Result<Vec<BinaryAttr>>>()?;

            let attr: RelAttr<IntVal> = RelAttr { size, binary };

            Ok(Domain::relation(attr, domains))

}

fn parse_size_attr(

    attr_map: &JsonMap<String, JsonValue>,

    symbols: &mut SymbolTable,

) -> Result<Range<IntVal>> {

    let scope = SymbolTablePtr::new();

    *scope.write() = symbols.clone();

    let attr_obj = attr_map

        .iter()

        .next()

        .ok_or(Error::Parse("SizeAttr is an empty object".to_owned()))?;

    match attr_obj.0.as_str() {

        "SizeAttr_None" => Ok(Range::Unbounded),

        "SizeAttr_MinSize" => {

            let size = parse_expression_to_int_val(attr_obj.1, &scope)?;

            Ok(Range::UnboundedR(size))

        "SizeAttr_MaxSize" => {

            let size = parse_expression_to_int_val(attr_obj.1, &scope)?;

            Ok(Range::UnboundedL(size))

        "SizeAttr_MinMaxSize" => {

            let min_max = attr_obj

                .1

                .as_array()

                .ok_or(error!("SizeAttr MinMaxSize is not a json array"))?;

            let min = min_max

                .first()

                .ok_or(error!("SizeAttr Min is not present"))?;

            let min_int = parse_expression_to_int_val(min, &scope)?;

            let max = min_max

                .get(1)

                .ok_or(error!("SizeAttr Max is not present"))?;

            let max_int = parse_expression_to_int_val(max, &scope)?;

            Ok(Range::Bounded(min_int, max_int))

        "SizeAttr_Size" => {

            let size = parse_expression_to_int_val(attr_obj.1, &scope)?;

            Ok(Range::Single(size))

}

fn parse_occur_attr(

    attr_map: &JsonMap<String, JsonValue>,

    symbols: &mut SymbolTable,

) -> Result<Range<IntVal>> {

    let scope = SymbolTablePtr::new();

    *scope.write() = symbols.clone();

    let attr_obj = attr_map

        .iter()

        .next()

        .ok_or(Error::Parse("OccurAttr is an empty object".to_owned()))?;

    match attr_obj.0.as_str() {

        "OccurAttr_None" => Ok(Range::Unbounded),

        "OccurAttr_MinOccur" => {

            let size_int = parse_expression_to_int_val(attr_obj.1, &scope)?;

            Ok(Range::UnboundedR(size_int))

        "OccurAttr_MaxOccur" => {

            let size_int = parse_expression_to_int_val(attr_obj.1, &scope)?;

            Ok(Range::UnboundedL(size_int))

        "OccurAttr_MinMaxOccur" => {

            let min_max = attr_obj

                .1

                .as_array()

                .ok_or(error!("OccurAttr MinMaxOccur is not a json array"))?;

            let min = min_max

                .first()

                .ok_or(error!("OccurAttr Min is not present"))?;

            let min_int = parse_expression_to_int_val(min, &scope)?;

            let max = min_max

                .get(1)

                .ok_or(error!("OccurAttr Max is not present"))?;

            let max_int = parse_expression_to_int_val(max, &scope)?;

            Ok(Range::Bounded(min_int, max_int))

}

fn parse_int_domain(v: &JsonValue, symbols: &SymbolTable) -> Result<DomainPtr> {

    let scope = SymbolTablePtr::new();

    *scope.write() = symbols.clone();

    let mut ranges = Vec::new();

    let arr = v

        .as_array()

        .ok_or(error!("DomainInt is not an array".to_owned()))?[1]

        .as_array()

        .ok_or(error!("DomainInt[1] is not an array".to_owned()))?;

    for range in arr {

        let range = range

            .as_object()

            .ok_or(error!("DomainInt[1] contains a non-object"))?

            .iter()

            .next()

            .ok_or(error!("DomainInt[1] contains an empty object"))?;

        match range.0.as_str() {

            "RangeBounded" => {

                let arr = range

                    .1

                    .as_array()

                    .ok_or(error!("RangeBounded is not an array".to_owned()))?;

                let mut nums = Vec::new();

                for item in arr.iter() {

                    let num = parse_expression_to_int_val(item, &scope)?;

                    nums.push(num);

                let lower = nums

                    .first()

                    .cloned()

                    .ok_or(error!("RangeBounded lower bound missing"))?;

                let upper = nums

                    .get(1)

                    .cloned()

                    .ok_or(error!("RangeBounded upper bound missing"))?;

                ranges.push(Range::Bounded(lower, upper));

            "RangeSingle" => {

                let num = parse_expression_to_int_val(range.1, &scope)?;

                ranges.push(Range::Single(num));

            _ => return throw_error!("DomainInt[1] contains an unknown object"),

    Ok(Domain::int(ranges))

}

fn parse_expression_to_int_val(obj: &JsonValue, scope: &SymbolTablePtr) -> Result<IntVal> {

    parser_trace!("trying to parse domain value as expression: {}", obj);

    let expr = parse_expression(obj, scope)?;

    if let Some(Literal::Int(i)) = expr.clone().into_literal() {

        return Ok(IntVal::Const(i as i64));

    }

    if let Expression::Atomic(_, Atom::Reference(reference)) = &expr

        && let Ok(reference_val) = IntVal::new_ref(reference)

        return Ok(reference_val);

    }

    IntVal::new_expr(Moo::new(expr))

        .map_err(|e| error!(format!("Could not parse integer expression: {e}")))

}

fn binary_operator(op_name: &str) -> Option<BinOp> {

    match op_name {

        "MkOpIn" => Some(Expression::In),

        "MkOpUnion" => Some(Expression::Union),

        "MkOpIntersect" => Some(Expression::Intersect),

        "MkOpSupset" => Some(Expression::Supset),

        "MkOpSupsetEq" => Some(Expression::SupsetEq),

        "MkOpSubset" => Some(Expression::Subset),

        "MkOpSubsetEq" => Some(Expression::SubsetEq),

        "MkOpEq" => Some(Expression::Eq),

        "MkOpNeq" => Some(Expression::Neq),

        "MkOpGeq" => Some(Expression::Geq),

        "MkOpLeq" => Some(Expression::Leq),

        "MkOpGt" => Some(Expression::Gt),

        "MkOpLt" => Some(Expression::Lt),

        "MkOpLexLt" => Some(Expression::LexLt),

        "MkOpLexGt" => Some(Expression::LexGt),

        "MkOpLexLeq" => Some(Expression::LexLeq),

        "MkOpLexGeq" => Some(Expression::LexGeq),

        "MkOpDiv" => Some(Expression::UnsafeDiv),

        "MkOpMod" => Some(Expression::UnsafeMod),

        "MkOpMinus" => Some(Expression::Minus),

        "MkOpImply" => Some(Expression::Imply),

        "MkOpIff" => Some(Expression::Iff),

        "MkOpPow" => Some(Expression::UnsafePow),

        "MkOpImage" => Some(Expression::Image),

        "MkOpImageSet" => Some(Expression::ImageSet),

        "MkOpPreImage" => Some(Expression::PreImage),

        "MkOpInverse" => Some(Expression::Inverse),

        "MkOpRestrict" => Some(Expression::Restrict),

        "MkOpApart" => Some(Expression::Apart),

        "MkOpTogether" => Some(Expression::Together),

        "MkOpParty" => Some(Expression::Party),

        "MkOpSubstring" => Some(Expression::Substring),

        "MkOpSubsequence" => Some(Expression::Subsequence),

        _ => None,

}

fn unary_operator(op_name: &str, inner: Option<&Expression>) -> Option<UnaryOp> {

    match op_name {

        "MkOpNot" => Some(Expression::Not),

        "MkOpNegate" => Some(Expression::Neg),

        "MkOpTwoBars" => {

            if let Some(inner) = inner {

                match inner.return_type() {

                    ReturnType::Int => Some(Expression::Abs),

                    | ReturnType::Function(_, _) => Some(Expression::Card),

                Some(Expression::Abs)

        "MkOpAnd" => Some(Expression::And),

        "MkOpSum" => Some(Expression::Sum),

        "MkOpProduct" => Some(Expression::Product),

        "MkOpOr" => Some(Expression::Or),

        "MkOpMin" => Some(Expression::Min),

        "MkOpMax" => Some(Expression::Max),

        "MkOpAllDiff" => Some(Expression::AllDiff),

        "MkOpToInt" => Some(Expression::ToInt),

        "MkOpDefined" => Some(Expression::Defined),

        "MkOpRange" => Some(Expression::Range),

        "MkOpFactorial" => Some(Expression::Factorial),

        "MkOpToMSet" => Some(Expression::ToMSet),

        "MkOpToRelation" => Some(Expression::ToRelation),

        "MkOpParticipants" => Some(Expression::Participants),

        "MkOpParts" => Some(Expression::Parts),

}

fn parse_reference_name(obj: &JsonValue) -> Result<Name> {

    if let Some(name) = obj.get("Name").and_then(|x| x.as_str()) {

        return Ok(Name::User(Ustr::from(name)));

    }

    let ref_arr = obj["Reference"]

        .as_array()

        .ok_or_else(|| error!("Reference.as_array"))?;

    let ref_obj = ref_arr

        .first()

        .and_then(|x| x.as_object())

        .ok_or_else(|| error!("Reference[0].as_object"))?;

    let name = ref_obj

        .get("Name")

        .and_then(|x| x.as_str())

        .ok_or_else(|| error!("Reference[0].Name.as_str"))?;

    Ok(Name::User(Ustr::from(name)))

}

pub fn parse_expression(obj: &JsonValue, scope: &SymbolTablePtr) -> Result<Expression> {

    let fail = |stage: &str| -> Error {

        Error::Parse(format!(

            "Could not parse expression at stage `{stage}` for json `{obj}`"

        ))

    };

    match obj {

        Value::Object(op) if op.contains_key("Op") => {

            let op_obj = op

                .get("Op")

                .and_then(Value::as_object)

                .ok_or_else(|| fail("Op.as_object"))?;

            let (op_name, _) = op_obj.iter().next().ok_or_else(|| fail("Op.iter().next"))?;

            if op_obj.contains_key("MkOpFlatten") {

                parse_flatten_op(op_obj, scope)

            } else if op_obj.contains_key("MkOpTable") {

                parse_table_op(op_obj, scope)

            } else if op_obj.contains_key("MkOpIndexing") || op_obj.contains_key("MkOpSlicing") {

                parse_indexing_slicing_op(op_obj, scope)

            } else if op_obj.contains_key("MkOpActive") {

                parse_active_op(op_obj, scope)

            } else if op_obj.contains_key("MkOpRelationProj") {

                parse_relation_projection(op_obj, scope)

            } else if op_obj.contains_key("MkOpToSet") {

                parse_to_set(op_obj, scope)

            } else if binary_operator(op_name).is_some() {

                parse_bin_op(op_obj, scope)

            } else if unary_operator(op_name, None).is_some() {

                parse_unary_op(op_obj, scope)

        Value::Object(comprehension) if comprehension.contains_key("Comprehension") => {

            parse_comprehension(comprehension, scope.clone(), None)

        Value::Object(refe) if refe.contains_key("Reference") => {

            let user_name = parse_reference_name(obj)?;

            let declaration: DeclarationPtr = scope

                .read()

                .lookup(&user_name)

                .ok_or_else(|| fail("Reference.lookup"))?;

            Ok(Expression::Atomic(

                Metadata::new(),

                Atom::Reference(crate::ast::Reference::new(declaration)),

            ))

        Value::Object(refe) if refe.contains_key("Name") => {

        Value::Object(abslit) if abslit.contains_key("AbstractLiteral") => {

            let abstract_literal = abslit["AbstractLiteral"]

                .as_object()

                .ok_or_else(|| fail("AbstractLiteral.as_object"))?;

            if abstract_literal.contains_key("AbsLitSet") {

                parse_abs_lit(&abslit["AbstractLiteral"]["AbsLitSet"], scope)

            } else if abstract_literal.contains_key("AbsLitFunction") {

                parse_abs_function(&abslit["AbstractLiteral"]["AbsLitFunction"], scope)

            } else if abstract_literal.contains_key("AbsLitMSet") {

            } else if abstract_literal.contains_key("AbsLitVariant") {

                parse_abs_variant(&abslit["AbstractLiteral"]["AbsLitVariant"], scope)

            } else if abstract_literal.contains_key("AbsLitRelation") {

            } else if abstract_literal.contains_key("AbstractLiteralPartition") {

            } else if abstract_literal.contains_key("AbsLitSequence") {

                parse_abstract_matrix_as_expr(obj, scope)

        Value::Object(constant) if constant.contains_key("Constant") => {

            parse_constant(constant, scope).or_else(|_| parse_abstract_matrix_as_expr(obj, scope))

        Value::Object(constant) if constant.contains_key("ConstantAbstract") => {

            parse_abstract_matrix_as_expr(obj, scope)

        Value::Object(constant) if constant.contains_key("ConstantInt") => {

            parse_constant(constant, scope)

        Value::Object(constant) if constant.contains_key("ConstantBool") => {

            parse_constant(constant, scope)

        _ => Err(fail("no_match")),

}

fn parse_abs_lit(abs_set: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let values = abs_set

        .as_array()

        .ok_or(error!("AbsLitSet is not an array"))?;

    let expressions = values

        .iter()

        .map(|values| parse_expression(values, scope))

        .collect::<Result<Vec<_>>>()?;

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Set(expressions),

    ))

}

fn parse_abs_mset(abs_mset: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let values = abs_mset

        .as_array()

        .ok_or(error!("AbsLitMSet is not an array"))?;

    let expressions = values

        .iter()

        .map(|values| parse_expression(values, scope))

        .collect::<Result<Vec<_>>>()?;

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::MSet(expressions),

    ))

}

fn parse_abs_partition(abs_partition: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let parts = abs_partition

        .as_array()

        .ok_or(error!("AbsLitPartition is not an array"))?;

    let mut partition: Vec<Vec<_>> = Vec::new();

    for part in parts {

        let vals = part

            .as_array()

            .ok_or(error!("Part in AbsLitPartition is not an array"))?;

        let exprs = vals

            .iter()

            .map(|values| parse_expression(values, scope))

            .collect::<Result<Vec<_>>>()?;

        partition.push(exprs);

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Partition(partition),

    ))

}

fn parse_abs_sequence(abs_seq: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let values = abs_seq

        .as_array()

        .ok_or(error!("AbsLitSequence is not an array"))?;

    let expressions = values

        .iter()

        .map(|values| parse_expression(values, scope))

        .collect::<Result<Vec<_>>>()?;

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Sequence(expressions),

    ))

}

fn parse_abs_tuple(abs_tuple: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let values = abs_tuple

        .as_array()

        .ok_or(error!("AbsLitTuple is not an array"))?;

    let expressions = values

        .iter()

        .map(|values| parse_expression(values, scope))

        .collect::<Result<Vec<_>>>()?;

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Tuple(expressions),

    ))

}

fn parse_abs_record(abs_record: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let entries = abs_record

        .as_array()

        .ok_or(error!("AbsLitRecord is not an array"))?;

    let mut rec = vec![];

    for entry in entries {

        let entry = entry

            .as_array()

            .ok_or(error!("AbsLitRecord entry is not an array"))?;

        let name = entry[0]

            .as_object()

            .ok_or(error!("AbsLitRecord field name is not an object"))?["Name"]

            .as_str()

            .ok_or(error!("AbsLitRecord field name is not a string"))?;

        let value = parse_expression(&entry[1], scope)?;

        let name = Name::User(Ustr::from(name));

        let rec_entry = Field {

            name: name.clone(),

            value,

        };

        rec.push(rec_entry);

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Record(rec),

    ))

}

fn parse_abs_variant(abs_variant: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let entry = abs_variant

        .as_array()

        .ok_or(error!("AbsLitVariant is not an array"))?;

    let name = entry[1]

        .as_object()

        .ok_or(error!("AbsLitVariant field name is not an object"))?["Name"]

        .as_str()

        .ok_or(error!("AbsLitVariant field name is not a string"))?;

    let value = parse_expression(&entry[2], scope)?;

    let name = Name::User(Ustr::from(name));

    let rec_entry = Field { name, value };

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Variant(Moo::new(rec_entry)),

    ))

}

fn parse_abs_function(abs_function: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let entries = abs_function

        .as_array()

        .ok_or(error!("AbsLitFunction is not an array"))?;

    let mut assignments = vec![];

    for entry in entries {

        let entry = entry

            .as_array()

            .ok_or(error!("Explicit function assignment is not an array"))?;

        let expression = entry

            .iter()

            .map(|values| parse_expression(values, scope))

            .collect::<Result<Vec<_>>>()?;

        let domain_value = expression

            .first()

            .ok_or(error!("Invalid function domain"))?;

        let codomain_value = expression

            .get(1)

            .ok_or(error!("Invalid function codomain"))?;

        let tuple = (domain_value.clone(), codomain_value.clone());

        assignments.push(tuple);

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Function(assignments),

    ))

}

fn parse_abs_relation(abs_relation: &Value, scope: &SymbolTablePtr) -> Result<Expression> {

    let entries = abs_relation

        .as_array()

        .ok_or(error!("AbsLitRelation is not an array"))?;

    let mut assignments = vec![];

    for entry in entries {

        let entry = entry

            .as_array()

            .ok_or(error!("Explicit relation assignment is not an array"))?;

        let expression = entry

            .iter()

            .map(|values| parse_expression(values, scope))

            .collect::<Result<Vec<_>>>()?;

        assignments.push(expression);

    Ok(Expression::AbstractLiteral(

        Metadata::new(),

        AbstractLiteral::Relation(assignments),

    ))

}

fn parse_comprehension(

    comprehension: &serde_json::Map<String, Value>,

    scope: SymbolTablePtr,

    comprehension_kind: Option<ACOperatorKind>,

) -> Result<Expression> {

    let fail = |stage: &str| -> Error {

    let value = &comprehension["Comprehension"];

    let mut comprehension = ComprehensionBuilder::new(scope.clone());

    let generator_symboltable = comprehension.generator_symboltable();

    let return_expr_symboltable = comprehension.return_expr_symboltable();

    let generators_and_guards_array = value

        .pointer("/1")

        .and_then(Value::as_array)

        .ok_or_else(|| fail("Comprehension.pointer(/1).as_array"))?;

    let generators_and_guards = generators_and_guards_array.iter();

    for gen_or_guard in generators_and_guards {

        let gen_or_guard_obj = gen_or_guard

            .as_object()

            .ok_or_else(|| fail("generator_or_guard.as_object"))?;

        let (name, inner) = gen_or_guard_obj

            .iter()

            .next()

            .ok_or_else(|| fail("generator_or_guard.iter().next"))?;

        comprehension = match name.as_str() {

            "Generator" => {

                let generator_obj = inner

                    .as_object()

                    .ok_or_else(|| fail("Generator.inner.as_object"))?;

                let (name, gen_inner) = generator_obj

                    .iter()

                    .next()

                    .ok_or_else(|| fail("Generator.inner.iter().next"))?;

                match name.as_str() {

                    "GenDomainNoRepr" => {

                        let name = gen_inner

                            .pointer("/0/Single/Name")

                            .and_then(Value::as_str)

                            .ok_or_else(|| {

                        let domain_obj = gen_inner

                            .pointer("/1")

                            .and_then(Value::as_object)

                            .ok_or_else(|| fail("GenDomainNoRepr.pointer(/1).as_object"))?;

                        let (domain_name, domain_value) = domain_obj

                            .iter()

                            .next()

                            .ok_or_else(|| fail("GenDomainNoRepr.domain.iter().next"))?;

                        let domain = parse_domain(

                            domain_name,

                            domain_value,

                            &mut generator_symboltable.write(),

                        comprehension.generator(DeclarationPtr::new_find(name.into(), domain))

                    "GenInExpr" => {

                        let name = gen_inner

                            .pointer("/0/Single/Name")

                            .and_then(Value::as_str)

                            .ok_or_else(|| {

                        let generator_expr = gen_inner

                            .pointer("/1")

                            .ok_or_else(|| fail("GenInExpr.pointer(/1)"))?;

                        let expr = parse_expression(generator_expr, &scope)

                            .map_err(|_| fail("GenInExpr.parse_expression"))?;

                        comprehension.expression_generator(name.into(), expr)

            "Condition" => {

                let expr = parse_expression(inner, &generator_symboltable)

                    .map_err(|_| fail("Condition.parse_expression"))?;

                comprehension.guard(expr)

    let return_expr_value = value

        .pointer("/0")

        .ok_or_else(|| fail("Comprehension.pointer(/0)"))?;

    let expr = parse_expression(return_expr_value, &return_expr_symboltable)

        .map_err(|_| fail("Comprehension.return_expr.parse_expression"))?;

    Ok(Expression::Comprehension(

        Metadata::new(),

        Moo::new(comprehension.with_return_value(expr, comprehension_kind)),

    ))

}

fn parse_bin_op(

    bin_op: &serde_json::Map<String, Value>,

    scope: &SymbolTablePtr,

) -> Result<Expression> {

    let (key, value) = bin_op

        .into_iter()

        .next()

        .ok_or(error!("Binary op object is empty"))?;

    let constructor = binary_operator(key.as_str())

        .ok_or(error!(format!("Unknown binary operator `{}`", key)))?;

    match &value {

        Value::Array(bin_op_args) if bin_op_args.len() == 2 => {

            let arg1 = parse_expression(&bin_op_args[0], scope)?;

            let arg2 = parse_expression(&bin_op_args[1], scope)?;

            Ok(constructor(Metadata::new(), Moo::new(arg1), Moo::new(arg2)))

}

fn parse_table_op(

    op: &serde_json::Map<String, Value>,

    scope: &SymbolTablePtr,

) -> Result<Expression> {

    let args = op

        .get("MkOpTable")

        .ok_or(error!("MkOpTable missing"))?

        .as_array()

        .ok_or(error!("MkOpTable is not an array"))?;

    if args.len() != 2 {

    }

    let tuple_expr = parse_expression(&args[0], scope)?;

    let allowed_rows_expr = parse_expression(&args[1], scope)?;

    let (tuple_elems, _) = tuple_expr

        .clone()

        .unwrap_matrix_unchecked()

        .ok_or(error!("MkOpTable first argument is not a matrix"))?;

    let (allowed_rows, _) = allowed_rows_expr

        .clone()

        .unwrap_matrix_unchecked()

        .ok_or(error!("MkOpTable second argument is not a matrix"))?;

    for row_expr in allowed_rows {

        let (row_elems, _) = row_expr

            .unwrap_matrix_unchecked()

            .ok_or(error!("MkOpTable row is not a matrix"))?;

        if row_elems.len() != tuple_elems.len() {

        }

    Ok(Expression::Table(

        Metadata::new(),

        Moo::new(tuple_expr),

        Moo::new(allowed_rows_expr),

    ))

}