feat: parser improvements

- record creation with punning
- disambiguate if condition from record creation with punning
- split parser tests up into many smaller ones

crates/lang/src/parser/lexer.rs

@@ -69,6 +69,7 @@ pub fn lexer() -> impl Parser<char, Vec<(Token, Span)>, Error = ParseError> {
         "fn" => Token::Fn,
         "if" => Token::If,
         "else" => Token::Else,
+        "then" => Token::Then,
         "is" => Token::Is,
         "let" => Token::Let,
         "opaque" => Token::Opaque,

crates/lang/src/parser/token.rs

@@ -72,6 +72,7 @@ pub enum Token {
     Trace,
     Type,
     When,
+    Then,
 }
 
 impl fmt::Display for Token {
@@ -145,6 +146,7 @@ impl fmt::Display for Token {
             Token::Todo => "todo",
             Token::Trace => "try",
             Token::Type => "type",
+            Token::Then => "then",
         };
         write!(f, "\"{}\"", s)
     }